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¡Ven a conocer el apasionante mundo 
de los ordenadores Amstrad! 

Las más importantes empresas españolas y europeas 
del sector se dan cita en Madrid para presentar y 
ofrecer sus más recientes productos para AMSTRAD. 

Programas de acción, juego, aventuras... Programas 
educativos, de utilidades, lenguajes... Programas de 
gestión y profesionales... Cientos de títulos inéditos... 

Periféricos, ampliaciones de memoria, emuladores, 


tabletas gráficas, digitauzadores, impresoras, lápices 
ópticos, redes de comunicación, discos duros, 
sintetizadores de voz. correo electrónico, tratamiento 
de imágenes... 

Las últimas novedades editoriales... Todas las 
revistas... 

Una ocasión única para conocer de “primera mano” los 
increíbles ordenadores personales AMSTRAD y todo 
cuanto para ellos se produce en el mundo. 
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• Patrocinada y organizada por 

AMSTRAD ESPAÑA 

• Horario continuo de 10:00 a 19:30 

• Entrada: 200 ptas. 

• Sorteo de Ordenadores AMSTRAD entre 
los visitantes. 

23-24-25 MAYO 

Palacio de Exposiciones y Congresos de Mac -: 

P.° Castellana, 99.28046 MADRID 
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U no de los caminos por los cuales avanza el mun¬ 
do de la Informática, es el que busca el desarrollo de 
la Inteligencia Artificial: el intento de simular los ra¬ 
zonamientos lógicos del hombre por medio de má¬ 
quinas; la programación de impulsos eléctricos capa¬ 
ces de albergar en memoria deducciones propias en 
función a unos primeros datos; reducir el tamaño de 
las unidades de memoria, con la posibilidad de acu¬ 
mular información y ampliar el campo comparativo; 
nuevos materiales que aplican más velocidad, son al¬ 
gunas de las primeras metas que se están consi¬ 
guiendo. 

Hoy nos sentimos obligados a replanteamos un fu¬ 
turo donde nuestro pequeño aliado, además de ejer¬ 
cer un control exhausto de nuestros negocios o nece¬ 
sidades, puede servimos como «consejero», ante pro¬ 
blemas de complicada estructuración o difícil resolu¬ 
ción lógica. 

Mientras tanto, todavía no hemos tenido tiempo de 
asimilar y aprender nuevas técnicas, cuando somos 
sorprendidos por los resultados de otros avances que 
nos dejan atrás. Nuevos fabricantes avanzan en el 
mercado, a la vez que otros consolidan sus nombres 
o desaparecen. 

Porque la Informática sigue evolucionando, aven¬ 
turémonos a deducir que nos depara un futuro cer¬ 
cano que todos vamos a conocer. 


Esta revista no mantiene relación de dependencia de ningún 
tipo con respecto de los fabricantes de ordenadores Commo¬ 
dore Business Machines ni de sus representantes. 
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INTELIGENCIA 

ARTIFICIAL 


8 


NOTICIAS 



Pequeño tratado sobre la 
Inteligencia Artificial y los 
lenguajes expertos. Así co¬ 
mo un programa que desa¬ 


fiará tu inteligencia. 



|u 

¿O libros 

2 0 TRUCOS 


22 CARTAS 



















GALERIA 
DE SOFTWARE 


Outlaws, Airwolf, Las 
aventuras de Bond... Basil- 
don Bond y Spy vs Spy. 



PROGRAMAS 
DE CONCURSO 



Programas premiados 
por su calidad o novedad. 



SISTEMAS DE 
NUMERACION 


¿Qué es el sistema de nu¬ 
meración binaria?, ¿qué es 
el sistema de numeración 
hexadecimal? Dos pregun¬ 
tas a responder acompaña¬ 
das de programas-ejemplo. 



;TE INTERESA? 


FICHEROS 

SECUENCIALES 


COMANDOS DE 
DISCO C-128 


Análisis de los coman¬ 
dos del C-128 en la unidad 
de disco. 


Tratamos básicamente la 
estructura de los ficheros 
con el datassette y los 
acompañamos con un pro¬ 
grama ejemplo. 
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I Concurso de corlóles 
Soft/Hewlett-Pwkard, 
Informática para 
arquHedos 

El motivo de esta convocatoria es, prin¬ 
cipalmente, introducir a las jóvenes pro¬ 
mociones y estudiantes de arquitectura, 
en el campo de la microinformática profe¬ 
sional, herramienta de primera necesidad 
en cualquier gabinete técnico. 

En él podrán participar todos los arqui¬ 
tectos superiores españoles titulados entre 
el 1 de enero de 1979 y el 31 de Diciem¬ 
bre de 1985, y los estudiantes matricula¬ 
dos en Proyecto Fin de Carrera y/o ó° 
curso de Arquitectura, en cualquier Escue¬ 
la Técnica Superior del país. 

El premio único del concurso, valorado 
en 1.800.000 ptas., está compuesto por 
la biblioteca de programas SOFT, especí¬ 
ficos para el mundo de la arquitectura, 
junto con un ordenador Hewlett-Packard 
150 II y una impresora gráfica Think Jet 
de chorro de tinta. 

En este concurso colaboran la entidad 
GRUPCAIXA, en cuyas oficinas de la 
Castellana, 51, de Madrid, se celebrará 
la exposición de los carteles y entrega del 
premio. 

ÍICAl 
PARAÍ 

Arquitectos | 

v * 

/! 




Serie de aventuras y 
misterio para ordenador. 

IDEALOGIC, S.A. emprende el camino 
de los juegos de aventura con el lanza¬ 
miento del programa Profesión Detective 
para el Commodore 64, arropado de un 
fabuloso concurso con 56 premios a los 
que optarán todos los usuarios mayores 
de 12 años. 

Con este programa se ha creado el 
concurso «Busca el misterio», para todos 
aquellos poseedores del programa debe¬ 
rán contestar a las siguientes preguntas: 
Nombre del culpable 
¿Cómo lo hizo? 

., ¿Porqué? 

Las oases de participación van adjuntas 
a cada uno de los programas. La fecha 
tope para recibir las soluciones será el 
próximo día 15 de julio. 

El reparto de premios se efectuará en 
los comercios donde se hayan vendido 
los programas de los ganadores, siendo 
el primer premio de 100.000 pesetas. 

Comodore PC 10-11 y 
PC 20-11 

Commodore, a partir del mes de abril, 
comercializará en España la nueva serie 
de su conocido Commodore PC en sus 
versiones PC 10-11 y PC 20-11, sin que el in¬ 
cremento de caractensticas que aportan 
suponga ningún aumento de los precios, 
que seguirán siendo de 353.000 ptas. 
para el PC 10-11, y 520.000 ptas., el PC 
20 - 11 . 

La nueva configuración stándar que 
presentará el Commodore PC es la si¬ 
guiente: 

512 Kb de memoria mínima de RAM. 
Adaptador Gráfico Avanzado para co¬ 
lor y monocromo. 

BIOS compatible XT. 

Disco fijo de 20 Mb (PC 20) 

Teclado y Sistema Operativo (MS- 
DOS) en castellano. 



Amstrad compra a su 
rival Sinclair 

Amstrad ha comprado a su máximo ri¬ 
val y pionero en el sector, la también bri¬ 
tánica Sinclair, por 5 millones de libras, 
unos 1.150 millones de pesetas. 

Según los términos del acuerdo que se 
conocen actualmente, Amstrad ha adqui¬ 
rido los derechos de fabricación y venta 
en el mundo entero de todos los ordena¬ 
dores y productos actuales y futuros de 
Sinclair Research. 

Clive Sinclair reconoció al hacerse pú¬ 
blico el acuerdo que «nosotros fuimos los 
innovadores, pero sabíamos que no po¬ 
dríamos competir con los expertos en mar¬ 
keting». Alan Michel SugarTrading (cuyas 
siglas forman el nombre de su empresa), 
comenzó sus actividades vendiendo pelí¬ 
culas a sus compañeros de colegio, para 
introducirse después en el negocio de la 
venta de antenas para radios de coche, 
estuches para discos, material de alta fi¬ 
delidad y vídeo. Sugar creó Amstrad de 
la nada y se basa su éxito en la reventa 
de ordenadores simples y económicos fa¬ 
bricados en Corea del Sur. 
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Red informática 
norteamericana 
para simulación de 
batallas espaciales 


Las instalaciones consistirán en una red de or¬ 
denadores basados en laboratorios gubernamenta¬ 
les e industriales, además de grupos de misiles. 
Serán construidos como parte de la Iniciativa de 
Defensa Estratégica (Guerra de las Galaxias), que 
con un coste de 26.000 millones de dólares ha 
sido impulsada por el presidente Reagan. Su ob¬ 
jetivo está dirigido a la formación de una estra¬ 
tegia orientada a defender el Occidente contra un 
ataque nuclear permitiendo derribar misiles en ple¬ 
no vuelo. 




-\ 

SUSCRIBASE 
POR TELEFONO 

* más fácil, 

* más cómodo, 

* más rápido 


Telf. (91)7337969 

7 días por semana, 24 lloras a su servicio 

SUSCRIBASE A 


nrric 

Mjcug. 


ijazjJUB. 
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La Inteligencia Artificial 
supone el intento del 
hombre de crear algo cuyos 
resultados sean similares a 
los del pensamiento 
humano, de forma que 
desde el exterior los fines 
alcanzados sean los 
mismos que los que 
podríamos haber 
conseguido nosotros. 

LISP, LOGO y más 
apropiadamente el PROLOG 
son lenguajes que se 
intentan acercar a los 
razonamientos lógicos 







Necesito ayuda, es verdad. 

—¿Qué representaría para us¬ 
ted conseguir una ayuda? 

Tal vez pudiera entenderme 
con mi madre. 

—Dígame algo más de su fa¬ 
milia. 

Mi madre cuida de mí. 

—¿Quién más de su familia 
cuida de usted? 

Mi padre. 

—Su padre... 

Usted se parece a mi padre en 
ciertas cosas. 

—¿Qué parecido nos encuen¬ 
tra? 

Usted no es muy agresivo, 
pero creo que quiere que yo no 
lo note. 

—¿Qué le hace pensar que no 
soy muy agresivo? 

No discute conmigo. 

—¿Por qué cree que no discu¬ 
to con usted? 

Me tiene miedo. 

—¿Le agrada creer que le ten¬ 
go miedo? 














Inteligencia 

Artificial 



Este chocante diálogo, que 
parece sonsacado de la consul¬ 
ta de algún psicoterapeuta, no 
es sino el resultado de una con¬ 
versación entre una chica y un 
frío y lógico terminal de orde¬ 
nador. 

El programa, llamado Eliza en 
honor a la Eliza de «Pigmalión», 
que podía aprender a hablar 
cada vez mejor, es obra de un 
profesor del Instituto de Massa- 
chusetts llamado Joseph Wei- 
zenbaun, y se hizo extraordina¬ 
riamente famoso, hasta el pun¬ 
to de que se llegó a pensar en 
«una red de terminales psicote- 
rapeutas de ordenadores, a se¬ 
mejanza de grandes cabinas te¬ 
lefónicas, en las cuales, por 
unos cuantos dólares la sesión, 
podremos conversar con un 
atento, capacitado e indepen¬ 
diente terapeuta», como dio a 
entender Cari Sagan, en «Natu¬ 
ral History». 

Incluso la secretaria de Wein- 
zenbaun en una ocasión en que 
se dispuso a hablar con Eliza, 
rogó al profesor que abandona¬ 
ra la estancia. ¡Hasta tal punto 
veía a la máquina como con¬ 
fidente!. 

Curiosaménte, Weizembaun, 
quien apoyó con su programa a 
muchos de los seguidores de la 
llamada «Inteligencia Artifi¬ 
cial», fue posteriormente uno de 


los detractores más serios y co¬ 
herentes que ha tenido ésta, y 
su objetivo fue demostrar la cla¬ 
ra diferencia entre un ordenador 
y una mente humana, y el peli¬ 
gro que podía representar el pri¬ 
mero si no se tomaban las me¬ 
didas oportunas. 


¿QUE ES LA INTELIGENCIA 
ARTIFICIAL? 

La IA, como ya se la llama en 
casi todos los sitios, es el inten¬ 
to del hombre de crear algo cu¬ 
yos resultados sean similares a 
los del pensamiento humano, 
ya sea simulando nuestro inte¬ 
lecto y nuestra forma de pensar 
o bien por otros medios, de for¬ 
ma que desde el exterior los fi¬ 
nes alcanzados sean los mis¬ 
mos que los que podríamos ha¬ 
ber conseguido nosotros. (Y si 
pueden ser, mejores). 

Esto último significa que hay 
dos formas de entender cómo 
conseguir que un ordenador 
«piense». La primera es creando 
un programa que discurra y 
piense lo más parecido posible 
a nosotros, con nuestros defec¬ 
tos y nuestras virtudes y por lo 
tanto las conclusiones sean se¬ 
mejantes a las nuestras, (si aca¬ 
so, sólo diferentes en veloci¬ 
dad.) 

La segunda prescinde de 




cómo lo hagamos nosotros; lo 
único que Interesa es el resulta¬ 
do. SI lo que se pretende es que 
juegue al ajedrez, se ha de cons¬ 
truir un programa que lo haga, 
de la forma que sea, pero que al 
final el resultado sea un movi¬ 
miento de una pieza. Ya vere¬ 
mos más tarde qué significan 
ambas visiones. Ahora vamos a 
remontarnos a la Inglaterra de 
principios de siglo. 

En aquellos años nace uno de 
los matemáticos más importan¬ 
te de este siglo, y una de las 
mentes mejor dotadas que se 
conocen: Alan Turing. En honor 
a la verdad, no se puede decir 
que Turing estuviera muy en su 
sano juicio. Por ejemplo, inven¬ 
to una variante del ajedrez en la 
que el jugador que dando una 
vuelta a la manzana llegara an¬ 
tes del movimiento del otro te¬ 
nía derecho a una jugada adi¬ 
cional. (Por supuesto, Turing 
fue campeón universitario en 
las carreras, de forma que la 
mayoría de las veces conseguía 
esa jugada, amén de poner ner¬ 
vioso al contrario), y, para col¬ 
mo de males, se suicidó con 
cianuro cuando todavía tenía 41 
años. Pero aparte de sus excen¬ 
tricidades y extrañezas, sus va¬ 
liosísimos estudios, y su ya fa¬ 
mosa «Máquina de Turing» (un 
ordenador que no tenía limita¬ 
ciones en su memoria y que 
sólo existe en teoría, pero no se 
puede llevar a la práctica), le hi¬ 
cieron ser uno de los principa¬ 
les padres de la Inteligencia Ar¬ 
tificial. Profetizó con admirable 
intuición lo que sería el día de 
mañana la informática y la inge¬ 
niería del conocimiento, y creó 
una curiosa prueba para probar 
si una máquina es inteligente o 
no. Se le ha llamado el test de 
Turing, y consiste aproximada¬ 
mente en lo siguiente: 

Se sitúa una persona delante 
de dos terminales, y ésta le va 
haciendo una serie de pregun¬ 
tas a cada uno de ellos; a un 
lado de uno de los terminales 
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hay una persona, y al otro, un 
programa de ordenador. Si la 
persona que hace las preguntas 
es incapaz de dilucidar quién es 
la persona y quién el programa 
«engañador», ese programa, y 
por tanto la máquina en ese mo¬ 
mento, son inteligentes. Lo úni¬ 
co que implica en realidad es 
que «una cosa piensa si lo pa¬ 
rece». Eso, que parece una ton¬ 
tería, no lo es tanto, si uno mira 
otras y observa la cantidad de 
discusiones y críticas que han 
tenido frases como esta. 

Aunque al principio nadie cre¬ 
yó en la Inteligencia Artificial, 
poco a poco algunos avances 
empezaron a vislumbrar lo que 
podía ser el cambio más impor¬ 
tante de la historia de la huma¬ 


nidad. Uno de esos avances fue 
un programa creado por Newel 
y Simón en 1957 que demostraba 
teoremas de lógica matemática 
de una forma similar a como lo 
hacía un matemático normal. 
Como anécdota, podemos con¬ 
tar que estos dos autores llega¬ 
ron a la conclusión de que algu¬ 
nos teoremas tardarían muchos 
miles de años en demostrarse 
por ordenador: al año siguiente 
un japonés hizo un programa si¬ 


milar que tardó un cuarto de se¬ 
gundo en hacerlo. Hubo más 
intentos, y se vaticinó que en 
unos pocos años se tendría un 
traductor de idiomas, pero no 
fue así. Los problemas que apa¬ 
recieron cuando se intentó en¬ 
tender el lenguaje, dieron lugar 
a que incluso los más optimis¬ 
tas vieran ya lejos el día en que 
el jefe de su empresa fuera un 
IBM. Estos problemas podría¬ 
mos imaginarlos así: 

Supongamos que alguien nos 
dice «Se me cayó el plato, dio 
con el pico de la mesa y se 
rompió». 

Todos entenderíamos sin lu¬ 
gar a dudas que, evidentemen¬ 
te, fue el plato el que se rompió, 
ya que a duras penas puede un 


plato romper una mesa. Pero la 
respuesta no está tan clara para 
el ordenador. De hecho, si la fra¬ 
se hubiera sido: 

«... dio contra la figura de por¬ 
celana y se rompió», nosotros 
mismos habríamos vacilado. En 
el primer caso no dudamos por¬ 
que sabíamos lo que era una 
mesa, y sabíamos que una 
mesa es mucho más dura que 
un plato. Es decir, NOSOTROS 
TENIAMOS CONOCIMIENTOS 




DE LA REALIDAD. Para imple- 
mentar esto en el ordenador, 
tendríamos que decirle cómo es 
una mesa, sus características, 
incluida su dureza, su pesadez, 
etc... y además, deberíamos de¬ 
cirle cómo es una mesa cual¬ 
quiera, no una particular. Una 
mesa puede tener tres patas o 
ser de mármol, pero un perro 
sólo puede tener cuatro, y eso 
ha de comprenderlo. Así que, 
ante este problema, las investi¬ 
gaciones se han dirigido en el 
sentido de introducir unos po¬ 
cos conocimientos sobre algu¬ 
na materia determinada y hacer 
que el ordenador «piense» sobre 
esos pocos datos. Los «siste¬ 
mas expertos» son algo pare¬ 
cido. 

No obstante, sí que se han 
conseguido algunos logros es¬ 
pectaculares. Uno de los más 
sonoros fue el programa BKG 
9.8 de Hans Berliner, que en ju¬ 
lio de 1979 consiguió derrotar al 
campeón del mundo de Back- 
gammon, en Monte Cario, con 
un premio de 5.000 dólares, y 
después de siete partidas, le 
ganó con un rotundo 6-1. 


LA IA Y LOS LENGUAJES 
DE PROGRAMACION 

Hay muchas formas de crear 
algo que parezca inteligente, y 
no ha de ser forzosamente en 
ningún lenguaje especial. Pode¬ 
mos incluso hacerlos en Basic, 
y el resultado puede ser muy si¬ 
milar, aunque seguramente más 
lento. Si lo que nosotros quere¬ 
mos es un programa que juegue 
con nosotros a algo, cosa que 
requeriría de alguna forma 
«pensar», podemos crear el pro¬ 
grama si el juego tiene solución 
y la conocemos. Hay muchos 
juegos que lo cumplen, como 
los juegos con palillos o con ce¬ 
rillas (Nim), con los que puedes 
impresionar a las visitas que in¬ 
tenten jugar contra el ordena¬ 
dor. Un típico juego que se sue¬ 
le meter en las calculadoras, y 
que vosotros podéis programar, 
es el siguiente: 

— Se tienen objetos (podéis 
hacerlo con naranjas, cubos, 
pingüinos...) y dos jugadores. 

— Se escoge un valor máxi¬ 
mo de objetos, digamos p, que 
se podrán coger como máximo 
en cada jugada. 

— Una vez cada uno, los ju¬ 
gadores van tomando 1 , 2 ... has¬ 
ta p elementos de una sola vez 
(siempre se tienen que llevar al¬ 
guno), y aquel que se lleve el úl¬ 
timo será el perdedor. 

Supongamos que tenemos 21 
balas y un fusil que tira 1,2 o 
tres balas. En este caso particu¬ 
lar n sería 21 y p sería 3. 

El jugador A podría tirar por 
ejemplo 2. Quedarían 19. El B 
tira 3. Quedarían 16. 

El juego continuaría hasta 
que quedara uno sólo. Aquél 
que tire el último, habrá perdi¬ 
do. 

Si observáis el desarrollo del 
juego, tiene truco. Si el primero 
mueve: 

(n-p-2)— [(INT^^^v) x (p + 1)] 
y a partir de ahí mueve siempre 


de forma que entre las que ha 
cogido antes el oponente más 
las suyas (p + 1), (por ejemplo, 
en el caso de arriba, si uno tira 
una bola, el otro tira tres, y si 
tira dos, el otro tiraría dos) en¬ 
tonces ganará en todas las oca¬ 
siones en que juegue. (No os 
preocupéis; parece muy compli¬ 
cado pero no lo es cuando ju¬ 
guéis). 

Naturalmente esto no es ni 
mucho menos un programa pen¬ 
sante, es simplemente una se¬ 
cuencia automática, que se eje¬ 
cuta paso a paso, como nuestra 
actuación al levantarnos de la 
cama a las 6 de la mañana. Pero 
existe una diferencia funda¬ 
mental: si cambia algo en algu¬ 
na ocasión, digamos por ejem¬ 
plo que ese día no hay agua ca¬ 
liente, nosotros somos capaces 
de adaptarnos y cambiar nues¬ 
tro programa; el ordenador, tal 
y como no es capaz si nosotros 
no prevenimos esa posibilidad. 

Observemos ahora el progra¬ 
ma basic de la figura 1. Es una 
versión del conocido juego Mas- 
ter Mind, con un número de tres 
cifras. Recordemos que en este 
juego, cada jugador intenta ave¬ 
riguar el número escondido del 
otro, y para eso un jugador le 
pregunta al otro por un número 
que ha pensado, y éste le con¬ 
testa «un muerto» por cada ci¬ 
fra del número preguntado que 
esté en el mismo sitio, y «un he¬ 
rido por cada cifra que sea la 
misma, pero esté en un sitio 
distinto. 

Supongamos que el jugador A 
ha pensado el número 426, y el 
jugador B le pregunta por el nú¬ 
mero 621. El jugador A ve en el 
número escondido que el 2 está 
en el mismo lugar, y que el 6 
está, aunque en un sitio distin¬ 
to. Serían entonces 1 muerto y 
1 herido. Por supuesto, si B le 
hubiera dicho 426, serían 3 
muertos, y A hubiera perdido, 
mientras que si hubiera dicho 
264 serían 3 heridos, ya que son 
todos los números pero están 
cambiados de sitio. En el caso 
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del programa de la figura, uno 
de los jugadores es nuestro 
querido Commodore, y el otro 
sois vosotros. Y os aseguro una 
cosa:, si le dejais empezar a él y 
jugáis 10 partidas... ¡Seguro 
que os gana más de 6! 

Y ¿Cómo lo hace? Este pro¬ 
grama no es tampoco verdade¬ 
ramente «pensante», y, aunque 
se acerca más a la verdadera in¬ 


teligencia artificial que el ante¬ 
rior de las balas, lo único que 
aprovecha son las salvajes do¬ 
tes de cálculo del procesador, y 
lo hace de la siguiente forma: 

El nos pregunta por un núme¬ 
ro. Nosotros ya lo hemos pensa¬ 
do antes, y podemos decirle 
cuántos muertos y heridos hay. 
El entonces calcula y almacena 
todos los posibles números que 


tienen los muertos y heridos 
que le hemos dicho, y lo guarda 
en una matriz. El número desco¬ 
nocido que hemos pensado no¬ 
sotros está en esa matriz, es 
uno de ellos, ya que tiene que 
cumplir lo que hemos dicho. En 
la vez siguiente, después de ha¬ 
ber jugado nosotros, él nos 
vuelve a preguntar por un núme¬ 
ro, esta vez uno cualquiera de 
los almacenados antes. Ese po¬ 
dría ser el nuestro, y, si no lo es, 
vuelve a guardar todos los de la 
matriz que cumplen los muertos 
y heridos que le hemos especi¬ 
ficado. El resultado es que cada 
vez le quedan menos, hasta que 
ya sólo le quede uno, en cuyo 
caso esa es la solución. En rea¬ 
lidad lo que hace es calcular to¬ 
das las posibles soluciones y 
escoger una al azar. Cada vez 
está más cerca, porque le que¬ 
dan menos posibilidades donde 
escoger. 

Fácil, ¿no? Pero esto es puro 
cálculo bruto, y no un verdade¬ 
ro programa inteligente. Puede 
ocurrir que el número de posibi¬ 
lidades total para guardar sea 
tan grande que ni el ordenador 
más potente de la NASA sería 
capaz de calcularlas en miles 
de millones de años. Este es el 
caso del ajedrez que en su pro¬ 
gramación tiene que cambiar la 
táctica y... ¿Cuál escoger? 

La única que podemos seguir 
es intentar que el ordenador 
siga los mismos pasos que se¬ 
guimos nosotros. 

Suponeros que estamos ju¬ 
gando una partida de ajedrez, 
con nuestro ya conocido juga¬ 
dor B. En ese momento él, con¬ 
tra todo pronóstico, mueve el 
caballo y nos da jaque. Las 
ideas que corren por nuestra ca¬ 
beza son algo así: 

— si muevo el rey allí, él me vol¬ 
verá a dar jaque con la torre, 
pero entonces yo podría taparlo 
con la dama. Claro que el me 
haría entonces jaque doble. No. 
mejor no». 

— Si me como su caballo, él 
lo estará esperando y segura- 
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( (DER1 "X" :m 
(<DERI X O) <NUM X)) 

( (DERI (X I Y) Z) (EQ Y (+ I ;•:) ) 

(DERI X y) (DERI x z) 

(EQ Z <x+y) ) ) 

<(DERI (x I y) Z)(EQ Y <* I x> ) 

(DERI X y)(DERI x Z) 

(EQ Z (y * x + X * z) ) ) 

( (DERI (X) Y) (DERI X Y)) 

( (DERI (X I Y) Z) (EQ X SEN) 

(DERI Y x) 

(EQ Z (CüS Y * x))) 


mente me arrincone, poniendo, 
primero, la torre, con lo que yo 
correría el rey, y después, la 
dama. Por ese camino parece 
que no tengo mucho futuro». 
—«Ah... pero si muevo al otro 
lado el rey, él tiene que mover 
el caballo, con lo que yo podría 
sacar mi dama y darle jaque. 
¡Prepárate, tío!». 


Es decir, hemos evaluado 
nuestras posibles jugadas, y 
después hemos pensado cómo 
jugaría él, y cómo jugaríamos 
nosotros después de su hipoté¬ 
tica jugada. Evaluamos todas 
(muchas o algunas) de nuestras 
jugadas, y todas las posibles ju¬ 
gadas que el contrario puede 
hacer para cada una de las 


nuestras, y así sucesivamente, 
y al final nos quedamos con la 
que parece mejor. En el caso de 
arriba, sería la última de ellas. 
(Desgraciadamente suele pasar 
que B mueve un peón, con lo 
que el mate es inminente). 

En los buenos programas de 
ordenador, el secreto está en 
cuál de todas las posibles juga¬ 
das evaluadas es la mejor y 
para eso se crean unas funcio¬ 
nes que asignan una puntua¬ 
ción a cada movimiento, se lle¬ 
ga a un nivel (mi jugada es el pri¬ 
mer nivel, la respuesta del con¬ 
trario el segundo nivel la si¬ 
guiente mía el tercero...), nor¬ 
malmente suelen estar escritos 
en lenguajes que facilitan todo 
esto. Estos son lenguajes que 
manejan «listas», y de los cua¬ 
les el primero fue el LISP, allá 
por el año 1960, y fue desarro¬ 
llado por John McCharty; aquél 
que alguna vez haya trabajado 
con LOGO, habrá ya tenido re¬ 
lación con el proceso listas. 
Pero de todos ellos el más cu¬ 
rioso es el PROLOG. Fue de¬ 
sarrollado en Francia, en Marse¬ 
lla, por Alain Colmerauer en 
1972. Es por tanto muy reciente, 
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y su particularidad radica en 
que no tenemos que dar un 
montón de instrucciones que le 
dicen que A tiene que valer 22, 
después que se vaya incremen¬ 
tando B o que calcule o impri¬ 
ma C. Las instrucciones que se 
dan en programa PROLOG son 
simplemente «hechos que pa¬ 
san», relaciones o, más propia¬ 
mente, conocimientos. Noso¬ 
tros somos algo así, una espe- 


MASTERMIND 

El juego tiene su base en los 
clásicos «Mastermind». En este 
caso el ordenador piensa un nú¬ 
mero y tú otro. El número ha de 
ser de tres cifras entre el 0 y el 9 
Inclusive, y no podrá repetirse la 
misma cifra. 


cié de paella de recuerdos, en la 
que cada grano es un dato (eso 
de ahí vuela), o una regla (los 
elefantes no vuelan, y, a partir 
de ahí, deducimos cosas (eso 
de ahí, por tanto, no es un ele¬ 
fante), y de forma similar actúa 
el PROLOG, metemos datos y 
reglas y después le pregunta¬ 
mos cosas. Este lenguaje, debi¬ 
do a su aplicación en inteligen¬ 
cia y procesamiento del lengua¬ 


Al principio del juego, el orde¬ 
nador te pregunta quién empieza 
a jugar. Si comienza el ordenador 
a jugar te dirá el número que él 
cree que tú tienes y te pedirá el 
número de muertos (colocados 
en su lugar) y el número de heri¬ 
dos (descolocados); después te 


je, fue el que escogieron los ja¬ 
poneses en un proyecto que va 
a durar unos 10 años, y en los 
que en ese tiempo quieren de¬ 
sarrollar una nueva máquina, 
casi un supercerebro. Es lo que 
ellos mismos llaman «la quinta 
generación» de ordenadores. 

Para que veáis un ejemplo de 
cómo trabaja el PROLOG, en el 
cuadro 2 tenéis un ejemplo de 
un programa en este lenguaje. 
Su función es encontrar la deri¬ 
vada de una función cualquiera, 
y para eso se le han definido 
unas relaciones que aquel que 
haya estudiado algo sobre deri¬ 
vadas podrá sintetizarlas como 
sigue: 

— la derivada de una cons¬ 
tante es cero. Esa es la primera 
instrucción. 

— La segunda es que la deri¬ 
vada de x es 1. 

— La tercera nos dice cuál 
es la derivada de la suma. 

Así se van definiendo esas re¬ 
glas, que son las mismas que 
nosotros mismos tenemos. 

A. de Mora-Losana 


preguntará por el número que tú 
crees que ha pensado él y así su¬ 
cesivamente. Es muy importante 
que sepas que en la primera ju¬ 
gada el ordenador PIENSA DU¬ 
RANTE TRES MINUTOS, en las 
restantes jugadas ya responde en 
segundos. 


’j 01 M N'M'253 
10 GOSUB 900 

20 GOSUB 600; FOR l~x 7O 3: Dí- ( I ) =A$ ( I ) s NEXT X 
40 II- C*=”S" THEN GQSUB 500 
50 GOSUB 400 

60 ÍE G$< > U S"- THEN GOSUB 500 : “S " : <30 TO 50 

/O IF CT="S" THEN GOSUB 800 
80 BOTO 50 

299 REM ***** DA MUERTOS Y HERIDOS **** 

300 HU-0:HE=0 
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GUIA PRACTICA 


COMMODORE 64 

SUPER QUINIELAS Disco 

' Gestión total de los datos deportivos de 1. a y 2. a 
división. 

' Creación de una quiniela estadística múltiple. 

' Reducción al 13, al 12 y por figuras de una 
quiniela propia o estadística con el 100 % de 
acierto. 

I * Con salida por impresora y escrutinio 

. 6.000 Ptas. 

j FAST TURBO MENUE 

! * Acelera el Datassette . 8.500 Ptas 

FAST TURBO DISK 

' Acelera la Unidad de Discos. 8.500 Ptas. 

ASTOC-DATA, S. A. República Argentina, 40 
Apt 695 Santiago de Compostela Tel. (981) 59 95 33 


DEFOREST 

MICROINFORMATICA 


TODO SOBRE COMMODORE - 64 Y VIC - 20 

LOS ULTIMOS JUEGOS EN EL MERCADO 
TODO EN PERIFERICOS - LIBROS 
PROGRAMAS DE GESTION - ETC. 

SOLICITE INFORMACION POR CORREO 


BARCELONA-15 

|C/ Viladomat. 105. Tel. 223 72 29 



COMPARE LOS PRECIOS 


Commodore 16 23.900 Pts. 

Joystick Quick Shot II 2.450 Pts. 

Discos RPS ID 340 Pts. Caja de plástico 
Discos RPS 2D 395 Pts. Caja de plástico 
Monitor Giaegi con sonido 22.900 Pts. 


OFERTA COMMODORE 128 

Consulte precios 


ASTOC DATA, S.A. 

C/ República Argentina, 40 Apto. 695 
Santiago de Compostela 
Tel. (981) 59 95 33 


r 7‘ f # 


S7‘ Vi 


• COMPONENTES ELECTRONICOS 

• COMMODORE Y AMSTRAD 

• AMPLIA BIBLIOTECA TECNICA 

• RADIO-COMUNICACIONES CB 
Y EQUIPOS HF/VHF/UHF 


Paseo de Gracia, 126-130 
Tel.: 237 11 82* - 08008 BARCELONA 



ni _ r i 


Distribuidor Oficial de: 

O 

commodore 
HARDWARE - SOFTWARE 
LIBRERIA - CLUB DE SOFTWARE 
ORDENADORES DE GESTION 

C/ Müntaner, 55 - 08011 BARCELONA 
Tel.: 253 26 18 



• commodore 

• amstrad 

• spectnum escrib|r a 

MíM, c/Vinateros,i2 

28030-MADRID 
































310 FOR 1*1 TO 3: XF A# (1) -B* < X ) THEN MU-MU*1 
320 NEXT I 

: :; i3u f(.)r ;i:-:i. ro 3 : Fo r j-i r□ 3 
‘ 3 •'! Ó 1 F Al < f ) ( J ) THEN HE=HE>1 s GOTO 360 

350 NEXI J 
360 NEXÍ I 
370 HE-HE-MU 
380 REIURN 

399 REM ****** PIDE NUMEROS *********** 

4 00 INPUT" NUMERO : " ? ZS : FOR Z — 1TQ3: Al < Z) -MIDI ( ZS , 2,1) : NEXT: G0SUB1000 
4 1.0 POR l~l TO 3:B* < I )=D$<I> : NEXT I 
420 GÜBLJB 300 

440 PEINT AÍ(1) ;Al(2) ;Al(3) " "r,MU ?« M "£HE 5 " H" 

445 JE MU - 3 THEN PRINT"» GANAS T E ! " : END 
'150 REÍ URN 

499 REM ******* JUEGA PRIMERO ********** 

500 GOSUB 600 z GOSUB 700:MAX 1*1 

501 PRINT "ESTOY PENSANDO... M 
505 POR N-48 Tü 57:Al(1)-CHR1 (N) 

5:1.0 FOR K = 48 TO 57 : Al (2 ) —CHR1 ( K ) 

520 FOR L-48 TO 57 

530 IF N-K OR N-L OR L=K THEN GO TO 560 
540 Al(3)—CHE#<L) 

551 GOSUB 300 

555 IF MU-MEE AND HE-HEI THEN FOR R-l TO 3:NT(MAX£„R)-AI(R) sNEXT RsMAX I-MAX I +1 
560 NEX Í L: NEXT K: NEXT N 

565 MAX I—MAX 1.1 

570 GOSUB1000 
580 REIURN 

599 REM ******* GENERA‘NUMERO ********** 

600 FOR I-1 TO 3:A* <I)=MI OS (STR1(INT(RND<1)*9)) ,2,1):NEXT I 

620 IF Al <1)-Al(2) OR A*(2)-A*(3) OR A*<3)-A*(1) THEN GO TO 600 
630 REIURN 

699 REM *** PIDE MUERTOS Y HERIDOS **** 

700 PE I NT TAB < 16 ) '‘NUMERO “ ; A* (1) ; Al<2>;Al (3) ; " MUERTOS"; 

701 INPUT MER 
703 00SI IB tOOO 

7 10 PE IN T T AB ( 1 6) " NUMERO " ; Al (1 ) ; Al (2) i A# (3) ; " HERI DOS " ; 

711 INPUT mi 
713 GÜSUB IODO 

725 IF MER-3 THEN PRINT" « 17 M SORR.Y , PERO. HE BAÑADO-" : END 

7 -3 O F OR R« 1 T Ü 3 s BS < R ) -Al ( R ) : NE XT R 
740 REIURN 

799 REM ******* ESCOBE: NUMERO AZAR ***** 

800 IN-IN1 (MAX l *RND ( 1) +1) : FORR--1T03 ¡ A$(R) -NI ( IN , R) sNEXTR:GOSUB 700 
805 T-1 

810 POR 0-1 TÜ MAXI 

820 FOR R«1 TO 3: Al (R ) -NT (O , R) : NEXT R 
830 GÜSUB 300 

840 IF MU-MER AMD HE—HRT THEN FOR R=1 TO 3:N1(T , R) ~NT < 0,R) :NEXT R:T=T+1 
860 NEXT O 
870 MAX1=1—1 
880 REIURN 

899 REM ******* PRESENTACION *********** 

900 PRINT "UN M A S T E R M I N D" 

910 PRINT " *******************":PRINT 

911 PRINT“PIENSA UN NUMERO DE TRES CIFRAS Y YO PENSARE OTRO...PRINT 

920 INPUT "EMPIEZO YO? (S/N) ";C1:GOSUB 1000 

990 REIURN 

1000 PR I N T "H !T : RETURN 

_ 
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COMMODORE, COMPAÑIA AMERICANA, LIDER MUNDIAL EN NUMERO DE ORDENADORES INSTALADOS. 




El C-64 de Commodore sigue siendo el orde¬ 
nador personal más vendido del mundo por sus 
prestaciones y posibilidades. 

Más periféricos que nadie La Gama de peri¬ 
féricos y accesorios del C-64 multiplica sus fun¬ 
ciones de una forma casi ilimitada: impresoras, 
unidades de disco, monitores... Todo un mun¬ 
do informático a su alrededor para que usted le 
saque todo el partido. 

Más software que nadie El C-64, por ser el 
ordenador más vendido, ha hecho que las com¬ 
pañías de software se vuelquen en él, creando 
un parque de programas que hoy le convierten 
en el 64 con más software del mercado. Softwa¬ 
re que abarca todos los sectores, desde los ne¬ 
gocios hasta el educativo. 


Le podemos asegurar que hoy por hoy el 
programa que usted necesita ya lo tiene el 
Commodore 64. 

Más información que nadie El C-64, lejos de 
quedarse atrás y porque cada vez son más los 
que lo eligen, dispone del mayor número de 
publicaciones exclusivas, así como libros de 
documentación en castellano donde se tratan 
temas de interés, nuevos programas, nuevas 
ideas, nuevas aplicaciones... 

Cada vez más gente investiga y se preocupa 
por su Commodore 64. 

Y menos precio que nadie Y todo esto a un 
precio realmente sorprendente y asequible. 

Acérquese hoy mismo a un distribuidor 
Commodore y entérese de su precio. Descubri¬ 
rá qué fácil es poseer el mejor ordenador per¬ 
sonal del mundo. El más vendido. 


o 

commodore 64 



Microelectrónica y Control, s. a. d Valencia , 49-53 08015 Barcelona - c/ Ardemans , 8 28028 Madrid 
Unico representante de Commodore en España. 


© BassaUOgilvy & Mather 















C-64 

TELECOMUNICACIONES 
Autor Jonathan Erickson. 
Editorial: McGraw-Hill. 
Traducción del inglés: 200 

páginas. 


La mayoría de nuestros 
lectores han utilizado el 
ordenador para jugar, 
aprender o programar, 
procesar textos, calcular, etc., 
pero sin duda son todavía 
minoría los que han explorado 
la comunicación de datos. Sin 
embargo, cuando a un 
ordenador se le añade un 
modem y un programa de 
comunicaciones, se abren 
para el usuario las puertas de 
un mundo insospechado, en el 
que la información es el 
elemento vital. 

El contenido de este libro 
puede dividirse en dos partes 
claramente diferentes aunque 
no reflejadas en la estructura 
del libro. La primera parte 
recogería todo lo referente a 
la comunicación entre 
ordenadores en general y con 
el C-64 en particular, 
aplicaciones, bases de datos, 
módems, protocolos, software 
de comunicaciones etc., es 
decir, los conocimientos 
mínimos que debe tener un 
usuario antes de conectar su 
C-64 al teléfono. 

La segunda parte está 
formada por una voluminosa 
información sobre los 
servicios a los que cualquier 
usuario de un C-64 
norteamericano puede 
acceder desde su casa a 
través del teléfono. A cada 
tipo de servicio se dedica un 
capítulo: 

— La compra desde casa 

— Servicios bancarios. 

— Correo electrónico. 

— Cursos de Universidad 
en casa. 


— Bibliotecas 
Informatizadas. 

— Agencias de viajes, 
tarifas y reservas. 

— Información bursátil. 

— Sistemas de tablón de 
anuncios. ' 

— Obtención gratis de 
programas. 

— Telejuegos 
y una larga serie de 
facilidades que han debido ya 
despertar la envidia de quien 
lee este comentario. En 
nuestro país esta cuestión 
lleva cierto retraso y la política 
seguida es mucho más 
restrictiva. Sin embargo, 



conviene no despistarse y 
estar preparados, porque este 
tema va a sufrir un fuerte 
cambio en los próximos años. 
Mientras tanto, nada impide 
que los usuarios de 
«home-computers» españoles 
utilicen la línea telefónica con 
el correspondiente modem 
homologado y el software 
adecuado para comunicarse 
con otros usuarios incluso de 
máquinas distintas. Para los 
que tengan este propósito, el 
libro será una guía 
interesante. 


ADVANCED 
PROGRAMMING 
TECHNIQUES ON C-64 
Autor David Lawrence. 
Editorial: Sunshine Books. 
V. original: 174 páginas. 


David Lawrence es uno de los 
escritores sobre 
microordenadores más 
conocidos en Inglaterra, 
también es autor de varios 
programas comerciales y 
colaborador habitual en 
revistas. Este libro es uno de 
los mayores éxitos en su 
amplia lista de títulos 
publicados. En sus páginas 
analiza algunas de las 
técnicas requeridas en la 
programación comercial y por 
él mismo empleadas. 

Si habéis intentado realizar un 
programa complejo, os 
habréis encontrado con 
numerosas dificultades para 
conseguir que funcione y 
estaréis sin duda convencidos 
de que programar es algo más 
que conocer los comandos y 
sentencias de un lenguaje. 
Pero si habéis ido un poco 
más lejos, y habéis 
compartido el desarrollo de 
programas con otros amigos o 
intentáis comercializarlos, 
sabréis que a un programa, 
además de funcionar, se le 
exigen otras cosas. Y ocurre, 
normalmente, que el que un 
programa cumpla o no estas 
otras condiciones, está en 
relación directa con las 
posibilidades de que el 
programa funcione 
correctamente. 

En resumen, un buen 
programa debería ser modular, 
estructurado, claro, utilizar las 
alternativas más sencillas 
cuando existen varias, 
contener facilidades de 
depuración y mantenimiento, 
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. estar bien documentado. 
Además, desde el punto de 

I . sta del usuario, debe ser 

seguro, rápido, eficiente, fácil 
/ agradable de manejar e ir 
acompañado de un buen 
manual de uso. 

3 ara conseguir todo esto 
existen numerosas técnicas y 
una teoría de la programación 
en constante desarrollo. 

En este libro se recopilan 
algunas de las técnicas 
empleadas por el autor en sus 
programas y muchos consejos 
sobre cómo hacer mejores 
programas en menos tiempo y 
con mayores garantías de 
éxito. 

En concreto, los temas más 
extensamente tratados son 
los de modularidad, 
depuración y verificación, 
entrada y salida formateada 


advanced programming 
techniques 

on the commodore 64 

powerful ideas andapplkations 


david lawrence 



de información, tratamiento 
de cadenas de caracteres, 
gestión de errores, ordenación 
de valores y estructuras de 


datos. Todos ellos sobre un 
lenguaje —el BASIC— y una 
máquina —el C-64—. 

El libro contiene además un 
conjunto de rutinas de utilidad 
general, que el lector puede 
utilizar como módulos en sus 
propios programas. 

En el índice del libro existen 
dos ausencias importantes, 
justificadas por el autor en 
función de la extensión y 
complejidad de estos temas, 
que son las técnicas gráficas 
y las de procesamiento 
matemático. 

Un libro que aporta muchas e 
interesantes ideas para 
quienes desean aumentar sus 
conocimientos de 
programación y mejorar la 
calidad de sus programas. 

José M. a Lizaso Azcárate 


■ 


DISPONEMOS DE TAPAS ESPECIALES PARA 



SUS EJEMPLARES DE 

commodore 

- ÍCLg¿Lzlrije_ 

SIN NECESIDAD DE ENCUADERNACION 

^rÍcÍOUNÍDAD 

fcSO 

Para hacer su pedido, rellene este cupón HOY MISMO 


ftgqñzTnP Bravo Murillo, 377 
Te| 7337969 . 21 


y envíelo a: 


28020 MADRID 


Ruego me envíen... tapas para la encuadernación de mis ejemplares de 
COMMODORE MAGAZINE, al precio de 650Pts. más gastos de envío. 
El importe lo abonaré 

□ POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA □ INTERBANK 

Número de mi tarjeta: | | I I M 1 II I II M I I I I II I I I I I~T1 

Fecha de caducidad . Firma 

NOMBRE .;. 

DIRECCION . 

CIUDAD . C. P. 

PROVINCIA . 









































Ventanas en el C-16 

Este pequeño programa está 
pensado para que sea posible tra¬ 
bajar con ventanas tanto en el 
C-16 como en el PLUS 4. Además, 
y al contrario que con muchas 
otras rutinas de creación de ven¬ 
tanas, con la que aquí os ofrece¬ 
mos es posible salir de la venta¬ 
na una vez creada o modificar las 
dimensiones de la misma desde 
el interior de un programa en eje¬ 
cución. 

La rutina, que incluye unas lí¬ 
neas de demostración, comienza 
llenando la pantalla de espacios 
en inverso, en color y en distintas 
tonalidades. A continuación se 
abre la primera ventana, se cam¬ 
bia de color y se repite la rutina 
de impresión. En este segundo 
caso, como la longitud de la línea 
dentro de la ventana es menor, se 
produce una especie de scrolling 
de los caracteres, lo que da lugar 
a unos interesantes efectos de 
movimiento. 


-*- 

5 COLORO,4,3 

10 Z=2: C=0:X=5:Y=5:XI=34:Y1=20 
20 FOR1=1TO1000 
30 COLOR1,Z,C 
40 PRINT"a 

50 C=C+1:IFC>7THENC=0 
60 NEXT 
70 Z=Z+1 

80 IFZ=3THENG0SUB63000 

85 IFZ>3THENY=Y+1:X=X+1:X1=X1-1:PRINT M SW" :G0SUB63000 

89 PRINT" 73 ' 

90 BOTO 20 
63000 : 

63010 : 

63020 CL4r=" 

63030 CD*= 

63040 PRINT" SI" ; LEFT$ (CDÍ-, Y) ; LEFT$ (CL$ , X ) ;CHRf (27) ; "T"; 
63050 F'RINTLEFT$(CDÍ, (Yl-Y));LEFT$(CL$, <X1-X>);CHR$(27);"B 
63060 RETURN 


RESET 


^Xiquí te mostramos unas lla¬ 
madas SYS que producen un re¬ 
set en tu ordenador, evitando 
apagar y encender éste para po¬ 
der suprimir programas de la me¬ 
moria sin suprimir las rutinas 


existentes en código máquina. 

Ordenador Reset 


C-128 

C-64 

PLUS/4 

C-16 

VIC-20 


SYS 65341 
SYS 64738 
SYS 65526 
SYS 65526 
SYS 64802 


Cambio de colores con las teclas de función 


Hemos recibido esta pequeña 
rutina, remitida por Carlos Her¬ 
nández desde Barcelona, para 
nuestra sección de trucos, que in¬ 


sertada al principio de cualquier 
programa nos permitirá cambiar 
en cualquier momento el color del 
borde y fondo de la pantalla utili¬ 
zando las teclas de función 


(F1 -borde, F3-fondo). 

La rutina quedará desactivada 
con las teclas RUN/STOP—RES¬ 
TORE, y volverá a activarse al eje¬ 
cutar el programa nuevamente. 


10 

15 

20 

30 


FOR A =49132 TO 49183:READ BsPOKE A,B:NEXT A 


F'OKE 

DATA 

DATA 


789,192: F'OKE 788,0 


166,197,228,251,240,20,224,4,240, 
238,32,208,76,26,192,238,33,208,1 


7,224,5,240,9,76,26,192 
34,251,76,49,234,0 
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Commodore presenta el 128 más completo 
del mercado: El Commodore 128. 

Un ordenador nacido para convertirse en 
mito. 

Más prestaciones que nadie Para ser más que 

nadie hay que demostrar la capacidad de actua¬ 
ción. Para el C-128 estos son sus poderes: 

• 122.365 Bytes libres en modo Basic • Biblio¬ 
teca de programas más extensa del mercado 
(pues dispone de todos los programas del C-64, 
del C-128 y de CP/M®3.0.). • Teclado numérico 
independiente • Alta resolución • 80 colum¬ 
nas en pantalla • Compatible con la periferia 
del C-64. 

En una palabra, el ordenador más completo 
de la gama 128. 


Más ordenador que nadie Además y por si 
fuera poco, el C-128 es el único ordenador ca¬ 
paz de actuar como tres. 

Primero como un C-64, con cuyos programas 
y periféricos es compatible; segundo como un 
128 en toda la extensión de la palabra; y terce¬ 
ro, como un ordenador con sistema operativo 
CP/M® 

Y todo, con sólo pulsar una tecla. 

Ha comenzado la era de los 128, conózcalos y 
sepa que uno ya es más 128 que nadie, el C-128. 

PRINCIPALES CARACTERISTICAS 
Microprocesadores: 8502 (1 ó 2 MH Z ); Z80A 
(4 MHJ; MMU para gestión de memoria. 

- RAM total de 128 Kb. - 122 Kb de RAM li¬ 
bres en modo BASIC. - ROM 48 Kb + 20 Kb. 

- Pantalla texto de 80 x 25 y 40 x 25. - Máxima 
resolución 640 x 200. - 16 colores y los 16 a la 
vez en pantalla. -3 voces con control de envol¬ 
vente y 8 octavas. - Teclado de 92 teclas con 
módulo numérico independiente. 


o 
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Problemas de grabación 

Al querer grabar programas 
con el nuevo cassette que Commo- 
dore ha lanzado (el más moder¬ 
no) tengo problemas, ya que mi 
ordenador produce un LOAD 
ERROR al poner cintas grabadas 
con el antiguo C2N 1530. ¿A qué 
puede ser debido? ¿Puede ser por 
tener ambos cassettes cabezales 
distintamente regulados? ¿Cómo 
regular los cabezales? 

José Antonio Fillat 
Lérida 

Es muy frecuente este tipo de error, 
cuando nosotros salvamos programas con 
un datassete que tiene el cabezal desviado 
realizamos así una grabación defectuosa, 
que sólo puede ser leída por ese mismo cos- 
sete. De todas formas siempre es posible, 
regulando el cabezal, conseguir tener los 
dos datassettes con la misma inclinación 
en el cabezal. Actualmente se comerciali¬ 
zan varios programas para regular los ca¬ 
bezales, entre ellos: Cinta Azimuth para 
alineación de la cabeza. 

Memorias de Pantalla 
y Color 


P: Tengo un Commodore 16 y 
me gustaría saber cómo puedo dar 
colores a los símbolos que se sitúan 
en pantalla cuando los coloco con 
POKEs, ya que hasta ahora lo he 
intentado, pero no entiendo cómo 
funcionan las Memoriajde Panta¬ 
lla y de Color, de las qoe habla el 
manual. 

Anabel Barcenilla 
Madrid 

R: Tu pregunta no está muy clara, en re¬ 
lación con lo que quieres saber. Pero inten¬ 
taremos aclarar todo lo referente a la Me¬ 
moria de Pantalla y a la Memoria de Color 


que poseen los ordenadores Commodore. 

Para situar en pantalla un símbolo o ca¬ 
rácter, lo único que tienes que hacer es un 
POKE con la dirección del punto de panta¬ 
lla donde lo quieres situar y luego, después 
de la coma, el valor del cóaigo ASCII 
correspondiente a ese símbolo o carácter. 

La pantalla tiene 1.000 puntos en modo 
normal, es decir, 40 columnas por 25 líneas 
de pantalla. 

Si luego quieres dar color al símbolo que 
has colocaao en pantalla tienes que buscar 
el punto equivalente en el mapa de memo¬ 
ria de color, para escribir un POKE a dicha 
dirección, y después de la coma, el valor 
del color que quieres activar. 

Las direcciones de memoria de Pantalla 
y de Color para los distintos ordenadores 
son: 


Ordenador 

Pantalla 

Color 

VIC 

7680 

38400 

C-16 

3072 

2048 

PLUS/4 

3072 

2048 

C-64 

1024 

55296 

C-128 

1024 

55296 


Dos diskettes en uno 


Quisiera preguntaros una cosa 
acerca de la unidad de disco, v los 
discos a utilizar. Me han dicho y 
he comprobado que a los discos 
de una cara y doble densidad se 
les puede practicar un pequeño 
corte y se convierten en discos de 
doble cara. ¿Esto es bueno para 
el disco o, en caso contrario, para 
la unidad de disco? 

Una cosa que hecho a faltar en 
la revista son programas de inte¬ 
rés o aplicación; no tanto juego. 
Podríais hacer un concurso perma¬ 
nente a la mejor aplicación y otro 
al mejor juego. 

Miguel Ramón 
Barcelona 

La unidad de disco nunca podrá salir 
perjudicada con esta pequeña transforma¬ 
ción, ya que los discos por su configuración 


física pueden recibir perfectamente infor¬ 
mación por ambas caras y el disco nunca 
perderá la información, siempre que efec¬ 
túes el corte en el lugar oportuno. Conoce¬ 
mos a bastantes personas que utilizan este 
sistema y todavía no han tenido problemas. 

Respecto a otra de las cuestiones que nos 
planteas, diremos que las aplicaciones, ge¬ 
neralmente, están destinadas a las necesi¬ 
dades particulares de cada persona, o tra¬ 
bajo que desempeñen. De hecho, hemos 
creído conveniente comenzar una serie de 
artículos que traten sobre las posibilidades 
y modos de construirse una aplicación uti¬ 
lizando ficheros con cassette , unidad de 
disco, impresora, etc. 

De todas formas ya sabéis que todo 
aquello que nos enviéis será publicado si 
responde al interés de todos los usuarios. 

TV y Sprites 


P: ¡Hola! Mi primera pregunta 
es saber si se puede estropear un 
televisor normal por tenerlo siem¬ 
pre enchufado al ordenador. La 
segunda va de Sprites. En el n.° 
22 publicasteis lo de los Sprites 
múltiples. En la muestra, la línea 
230 deja el tamaño pequeño a los 
Sprites. He intentado agrandarlos 
sin conseguirlo. Además he cam¬ 
biado los DATA de la locomotora 
para hacer el vagón y no va. Des¬ 
conozco la causa. Para finalizar 
este repertorio de ignorancias, 
quisiera saber cómo se pone un 
Spríte detrás de otro en lugar de 
sustituirlo. Gracias. 

P.D.: Tengo un C-64. 

Caries Amaya 
Barcelona 

R: Aunque se habló mucho de este tema, 
con el Primer boom del Ordenador, el su¬ 
frimiento de los TV por culpa de los fuertes 
contrastes en las pantallas que emiten los 
ordenadores, es ciertamente relativo y la 
experiencia ha demostrado que esto no es 
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y que no debemos asustarnos por su 

ISO. 

; especto a tu segunda preaunta, en la lí- 
•?: 230 del programa deberás escribir 
*QKE V-h 23,3: POKE V+29,3 siendo el 3 
f .olor que agranda al Sprite 0 del nivel 
• al Sprite 1 del nivel 2 (2+1 = 3). Pero 
-r- en cuenta que al hacerlos más grandes 
r^drás que variar la proporción aue exis- 
*e en los valores de XI y X2 pasando de 24 
: 18 . Y por último, para colocar vagones 
- enes que reformar el bucle de lectura, ac¬ 
or y poner punteros, y dar valores a las 
%-evas coordenadas que moverán los va¬ 
gones. 

Sprites 


Hola, me gustaría saber qué es 
eso de los Sprites multicolores y 
los monocolores; cómo se puede 
hacer: tener al mismo tiempo más 
de ocho sprites y cómo manejar¬ 
los por la pantalla, y si no se pue¬ 


den tener más de ocho sprites 
cómo lo hacen en los juegos pro¬ 
fesionales para hacer caracteres 
de alta resolución por toda la 
pantalla haciendo dibujos, etc. 

¿Qué es eso de choque sprites y 
choaue de fondo y sprite? Gracias 
por la respuesta. 

David García 
Barcelona 

Los Sprites son caracteres gráficos pro¬ 
gramabas en Alta Resolución que ocupan 
24 x 21 pixels (puntos o bits) y que pue¬ 
den ser monocolores (un color de fondo y 
otro de sprite) o multicolores (un color de 
fondo y o en el sprite). 

Para mantener más de ocho sprites en 
pantalla, tiene que conocer código máqui¬ 
na y aprovechando las interrupciones del 
ordenador enviar en menos de un segun¬ 
do varias pantallas distintas que superpues¬ 
tas contienen más de 8 sprites (hasta 64 
sprites). 



Existe en el Commodore y el modo bip- 
map, con el que que puedes dibujar punto 
a punto y en alta resolución los dibujos que 
tú desees. 

Sobre las colisiones entre sprites , el or¬ 
denador tiene una dirección de memoria 
que es capaz de detectar cuándo se ¡untan 
dos sprites en pantalla y así nosotros utili¬ 
zarla como respuesta al golpe (destrucción, 
sonido, rebote, deformación, etc.). Tam¬ 
bién posee otra dirección que detecta 
cuándo se ¡unta un sprite y un dato o dibu¬ 
jo en pantalla. Como ves, las respuestas 
son cortas, pero claras. No hemos querido 
entrar más en detalle, porque necesitaría¬ 
mos toda la revista para explicarte la utili¬ 
zación y uso de todas tus cuestiones. En los 
números 21, 22 y 23 de Commodore Ma- 
gazine puedes encontrar más información 
sobre estos temas. 


¡LA NUEVA GENERACION DE METODO 

DE BACKUP HA LLEGADO. 


, j_i r A4 estaban esperando desde hace 

DE CINTA A DISCO: Use «reEHE e TOVM»P é c n¡ c 0 *-torga usada. V ° D,sco ' 

OTRA utilidad no menos importante de! cartu , no puede acabar con causas de 


^rc'oTod^eo'^pc.ible. c tros m e di OS de buckup. La única utilidad VERDADERA y 

ATENCION: No se deje influenciarpor o nArKUPS es «FREEZE FRAME». 
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Outlaws 



Nos encontramos en el Leja¬ 
no Oeste Americano. En pleno 
desierto, el paraíso de los pros¬ 
critos. 

Los habitantes de los ranchos 
tuvieron que abandonar sus ca¬ 
sas, ya nadie podía vivir tranqui¬ 
lo, puesto que los bandidos, para 
los que no existe ley, habían arra¬ 
sado todo cuanto encontraron a 
su paso. 

Reinaba el temor y la desola¬ 
ción; nadie se atrevía a enfrentar¬ 
se a tan despiadada banda. Ne¬ 
cesitaban ayuda y sólo un hom¬ 
bre podía dársela: el jinete solita¬ 
rio. No tenía nombre ni pasado, 
nadie sabía de dónde salló, pero 
era necesario; era el único capaz 
de liberar a los pacíficos habitan¬ 
tes del valle de los tiranos mal¬ 
hechores. 

Los enemigos son muchos, y el 
jinete solitario deberá usar todos 
sus recursos para luchar contra 
ellos. El terreno es árido y con 
múltiples obstáculos que el jine¬ 
te deberá salvar para perseguir a 
los proscritos. 



Pero nuestro héroe cuenta con 
un fiel aliado, su rápido Caballo 
Blanco, que cuando esté trotando 
será capaz de saltar sobre los 
troncos caídos, siempre que su ji¬ 
nete tire de las riendas adecua¬ 
damente. 


Estos hombres fuera de la ley 
con los que tendrá que luchar el 
jinete solitario, no tienen ningún 
escrúpulo en utilizar cualquier ar¬ 
timaña para derribarle. Le perse¬ 
guirán a caballo, y se esconderán 
en los ranchos que han tomado, 
para poder disparar sin apenas 
ser vistos. Pero el jinete solitario 
lo sabe, y se protege bajando la 
cabeza para no ser alcanzado por 
las balas de los proscritos. 

Nuestro jinete puede moverse a 
derecha e izquierda. También 
puede disparar en cualquier direc¬ 
ción, y volver la cabeza para 
apuntar al enemigo si éste le ata¬ 
ca por detrás. 

Muchos personajes se cruzarán 
en el camino: forajidos, indios, 
gente de los ranchos..., también 
aparecerán objetos y edificios, 
como hoteles, salones y cabañas 
de indios, a medida que vayas 
avanzando en el juego y matando 
a los enemigos. 

En general, se trata de un jue¬ 
go sencillo que con un poco de 
práctica no presenta grandes 
complicaciones. El movimiento 
de los personajes, con una buena 
calidad de animación, y los dis¬ 
tintos elementos que Irán apare¬ 
ciendo en tu pantalla te manten¬ 
drán en el Lejano Oeste. 

Los efectos sonoros de los cas¬ 
cos del caballo, los disparos y 
caídas están bien conseguidos, 
así como la música con la que 
comienza el juego. 

Con un poco de práctica, pron¬ 
to conseguirás acabar con buena 
parte de los proscritos y liberar 
a los habitantes del valle, que 
no dudarán en agradecerte tu ha¬ 
zaña. 
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Airwolf 

^^airwolf trata básicamente de 
_na misión de rescate por medio 
:e un helicóptero, pero bastante 
~ás complicado de lo que puede 
rarecer en tan simple descrip¬ 
ción. 

Hace falta un piloto muy espe- 
:ial para hacer volar un aparato 
como Airwolf. Es un modelo muy 
gero y sofisticado de helicópte¬ 
ro de combate. Está capacitado 
cara alcanzar velocidades super¬ 
sónicas, y cuenta con un sistema 
de armamento construido con los 
Jtimos avances tecnológicos. 

Era necesario un aparato así, 
para enfrentarnos a una misión 
tan difícil como la nuestra. Se tra¬ 
ta de liberar a un grupo de cien¬ 
tíficos que han sido apresados 
por el General Zanarov, una de 
las más perversas mentes del 
terrorismo mundial. 

El General ha ideado un siste¬ 
ma subterráneo de defensa de su 
base, que la convierte en la más 
impenetrable prisión que el hom¬ 
bre ha conocido. 

Consiste en un sistema de in¬ 
numerables cavernas, que debe¬ 
rás explorar y conocer con Air¬ 
wolf, para poder llevar a cabo la 
misión que se te ha encomen¬ 
dado. 

Encerrados en la profundidad 
de este tortuoso laberinto, que se 
encuentra en el subsuelo del De¬ 
sierto de Arizona, hay, como he¬ 
mos dicho, un grupo de brillantes 
científicos, que el General tiene 
prisioneros para que le ayuden en 
su intento de dominar el mundo. 

Tú, como piloto de Airwolf, de¬ 
bes rescatar a estos hombres, y 
superar la gran estructura defen¬ 
siva de esta prisión subterránea 
creada por una poderosa mente, 
que es en realidad con quien ten¬ 
drás que luchar. Así pues, tu ra¬ 
zonamiento ha de ser también rá¬ 
pido y práctico, ya que buena par¬ 


te del éxito de tu misión depen¬ 
derá de ello. 

Hay muchas cavernas que se 
comunican entre sí, y a las que 
podrás acceder disparando sobre 
determinados dispositivos secre¬ 
tos que deberás encontrar. De¬ 
pendiendo del camino que elijas, 
se abrirán unas u otras paredes, 
que te permitirán acceder a dis¬ 
tintas partes de la prisión. Pero 
habrá que tener cuidado, puesto 
que nuestro enemigo se ha encar¬ 
gado de poner algunas trampas 
perfectamente camufladas, en las 
que puedes quedar atrapado, y 
fracasar en el rescate. 

En tu viaje por el subsuelo ve¬ 
rás a los prisioneros que te hacen 
señas para que los salves. No in¬ 
tentes hacerlo hasta no estar se¬ 
guro de que puedes acceder al lu¬ 


gar donde se encuentran, pues 
cada choque en tu helicóptero va 
deteriorando sus sistemas defen¬ 
sivos, y si colisionas en repetidas 
ocasiones, Airwolf se destruirá 
definitivamente. Por ello, creo que 
al principio es interesante inten¬ 
tar conocer el terreno. Es decir, 
averiguar las conexiones y posi¬ 
bles salidas de cada caverna, 
para posteriormente dedicarse al 
rescate de los científicos. 

Airwolf no es un juego compli¬ 
cado, pero requiere cierto entre¬ 
namiento, y sobre todo suavidad 
y precisión en el manejo del joys- 
tick, pues es muy fácil chocar con 
las paredes de la cueva. Es un 
juego muy entretenido, y si te 
puede la curiosidad de conocer el 
laberinto del General, puedes pa¬ 
sar mucho tiempo ante tu orde¬ 
nador. 
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Las aventuras 
de Bond... 
Basildon Bond 


Woman, y ella puede causar más 
daño que beneficio. 

Bond puede correr a derecha e 
izquierda, puede subir y bajar es¬ 
caleras y coger y dejar objetos. 
También tiene habilidades para 
llamar a Cooper Man, o volver al 
Cuarto de Computadoras cuando 
lo crea conveniente. Con este re¬ 
pertorio de movimientos de nues¬ 
tro amigo Basildon Bond, el úni- 


M nunca has estado en unos 
estudios de televisión tendrás 
ocasión de visitarlos junto a Ba¬ 
sildon Bond, y vivir con él una di¬ 
vertida aventura. 

Bajo estrictas y confidenciales 
órdenes de un misterioso «P», Ba¬ 
sildon Bond tendrá que rescatar 
a un conocido comediante, Russ, 
que ha sido capturado por un ri¬ 
val del mundo del espectáculo. 

Pero el rescate no es fácil. 
Bond deberá revelar una serie de 
códigos secretos. Para ello tendrá 
que correr a través de las distin¬ 
tas habitaciones y pasillos de los 
estudios de televisión, y recoger 
las pistas que encuentre a su 
paso. Hay muchas habitaciones y 
posibilidades de combinar estas 
pistas. 

Bond tiene que llevar cada ob¬ 
jeto que recoja al Cuarto de Com¬ 
putadoras, que es de donde par¬ 
te su carrera, y si logra empare¬ 
jar los objetos correctos, e intro¬ 
ducirlos en el sistema de Ordena¬ 
dores, éste le dará la clave para 
rescatar a Russ. 

Al practicar, pronto te darás 
cuenta de que los objetos pueden 
ser utilizados para ejecutar dife¬ 
rentes funciones. Por ejemplo 
para volver al Cuarto de Compu¬ 
tadoras-, o para buscar en las di¬ 
ferentes habitaciones. Si mueves 
tu joystick hacia atrás, aparecerá 
un pequeño texto con una pista 
que puede serte de gran utilidad. 

El tiempo máximo para el res¬ 
cate es de cinco horas, y será su¬ 
ficiente si procuras evitar encuen¬ 
tros con las cámaras de televi¬ 
sión, que te harían regresar al 
principio del juego. Asimismo, 


pronto comprobarás que cierto in¬ 
cordiante ser te persigue cons¬ 
tantemente, si practicas descubri¬ 
rás sus intenciones. 

Sin embargo, no estás tan solo 
en tu misión. Para librarte de las 
insistentes cámaras, que tratarán 
de hacerte perder tiempo, está 
Cooper Man, un extraño hombre 
volador que paralizará la acción 
cuando tú lo desees. Pero hasta 
con él tendrás que tener cuidado, 
pues también contiene a Blunder 


co problema es controlar bien tu 
joystick, y agilizar tu memoria, 
para recordar las habitaciones ya 
visitadas y evitar perder tiempo 
volviendo a ellas. Si lo haces así, 
no te será difícil conseguir la cla¬ 
ve para rescatar a Russ. 

Mientras cargas el programa, 
podrás entretenerte observando 
la presentación del juego. En ella 
aparece un divertido primer plano 
de nuestro protagonista, Basildon 
Bond. 
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en impresoras 
para su ordenador 
es una Star 
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(-- 
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SPY VS SPY 

The Island Caper 


Estamos ante un juego de es¬ 
trategia y acción entre dos es¬ 
pías. «ESPIA CONTRA ESPIA» co¬ 
mienza presentándote las posi¬ 
bles opciones del juego, o bien ju¬ 
gar dos personas, o bien una y el 
ordenador. También tienes la po¬ 
sibilidad de elegir el nivel de difi¬ 
cultad del juego, cuando juegues 
contra el ordenador. 

Dos espías aterrizan con sus 
paracaídas en una isla desierta 
presidida por un gran volcán que 
limitará el tiempo de la acción, 
debido a sus continuas erupcio¬ 
nes. Ambos hombres tienen el 
mismo objetivo, pero sólo uno po¬ 
drá conseguirlo. Su misión es 
montar las piezas de un proyectil, 
y conseguir llevárselo de la isla 
desierta, mediante un submarino 
que aparecerá en el momento 
preciso. 

Nuestro personaje deberá ser 
hábil y rápido para superar a su 
contrincante. Sus jefes, que no ig¬ 
noran lo peligroso de la misión, le 
proporcionaron una de las herra¬ 
mientas más revolucionarias en 
el campo del espionaje, el Mani¬ 
pulador de Trampas. Este moder¬ 
no sistema dará periódicamente 
una clara información, por medio 
de unos mapas, de los lugares 
donde pueden encontrarse obje¬ 
tos útiles, o donde están las tram¬ 
pas que nos harán detenernos en 
el camino. Por supuesto, el espía 
contrincante tiene los mismos 
medios. 

En la pantalla aparecerá una vi¬ 
sión simultánea de la actividad 
de ambos espías. Pero cuidado, 
pues esto puede hacernos pensar 
que la isla es muy grande, y no 
es así. Pues no será difícil que te 
encuentres con tu oponente, y se 
produzca una cruenta lucha a 


muerte entre vosotros. 

Durante tu misión a través de 
la isla encontrarás múltiples obje¬ 
tos y trampas. Debes tener cuida¬ 
do con unas manchas oscuras 
que aparecen en el suelo, pues se 
trata de arenas movedizas, y el 
salir de ellas te costará una gran 
cantidad de energía. Si te aden¬ 
tras en el mar, en busca del sub¬ 
marino, procura estar atento a los 
tiburones, que si no tienes cuida¬ 
do te engullirán de un bocado. 

Pulsando dos veces el botón de 
disparo del joystick tendrás acce¬ 


so completo al Manipulador de 
Trampas. Mediante él podrás in¬ 
geniártelas para hacer un poco 
más difícil la tarea a tu contrin¬ 
cante. 

Hay muchos tipos de trampas: 
con lazo, fosos, pistolas, cocos- 
combate y otras. Podrás jugar 
muchas veces, y aprender a cons¬ 
truir nuevas dificultades para tu 
enemigo. 

Cuando consigas montar el 
proyectil, deberás ir hacia una de 
las costas, y allí aparecerá el sub¬ 
marino, 
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Programas 


Hoscas 


VIC-20 



n 

■dentro del clásico tipo de jue- 
:: s de «marcianos», Jaume M. a 
Sazner, suscriptor de Commodore 
Vazazine, nos remite desde Pala- 
~:s una nueva versión llamada 
'ESCAS, por la semejanza de los 
~alos» con dichos insectos. 

E juego consiste en una forma* 

: on de moscas, con tres generales 

su parte superior, que avanza ba- 
¿"do lentamente hacia el jugador, 
zue es una nave situada en la par- 
*e nferior de la pantalla. Su misión 
as destruir a toda la formación y 
conseguir el mayor número de pun¬ 
tos. 

Esto no es demasiado sencillo, 
cues las moscas salen espontánea¬ 
mente de la formación, avalanzán- 
:ose hacia la nave del jugador, dis¬ 
zarando contra la misma y varian- 
:o su dirección, lo que hace difícil 
5u destrucción. Además, cuando la 
*ormación está casi totalmente 
destruida, los supervivientes se lan¬ 
zan en masa contra la nave. 

Si el jugador triunfa, a pesar de 
las dificultades, y logra eliminar la 
formación completa de moscas, 
aparece una nueva pantalla de ma¬ 
yor dificultad. A partir de la cuarta 
pantalla el juego se hace enorme¬ 
mente difícil, y lo único que intere¬ 
sa es sobrevivir. 

El jugador dispone de tres naves 
y en todo momento en la parte in¬ 
ferior derecha de la pantalla apare¬ 
ce el tanteo que ha conseguido 
hasta el momento y en la izquierda 
el récord. Para controlar la nave se 
utilizan las teclas «Ctrl» para dispa¬ 
ros, y «:» y « = » para movimiento. 
Cuando finaliza el juego hay que 
pulsar la tecla «Ctrl» para volver a 
intentarlo. 

El programa BASIC se compone 
esencialmente de una serie de DA- 
TA’S donde se contiene en hexade- 
cimal el programa en código máqui¬ 
na. Si se produce algún error al leer 
los DATA’S el programa avisa de 
ello. Al correr el programa hay que 
esperar a que se carguen los datos 


en las posiciones de memoria 
correspondientes, en lo que se tar¬ 
da aproximadamente un minuto y 
medio. El programa así generado 
se puede grabar, de forma que cada 
vez que se desee jugar no hay que 
esperar a la generación de progra¬ 


ma en máquina. 

En el listado de lenguaje ensam¬ 
blador que acompaña puede apre¬ 
ciar la función de cada rutina, sien¬ 
do un interesante ejemplo de las 
posibilidades de programar en có¬ 
digo máquina. □ 


1O DATAD,B,10,0,0,9E,35,31,32,31,O,O,O,A9,FF,8D,5,90,A9,8,8D,F,90,A9,F,8D,E 
15 DATA90,85,A,A9,O r 85,5,85,C,A9,3,85,4,A9,9,85,1,A9,93,20,D2,FF,A2,2C,BD,7F,13 
20 DATA9D,CE,1F,A9,1,9D,CE,97,CA,DO,F2,A9,4,85,O,E6,C,A5,C,C9,4,90,4,A9,5,85,A,1 
E4B 

25 DATAA9,E4,AO,12,20,1E,CB,A2,FF,AO,20,88,DO,FD,CA,DO,F8,A5,5,FO,13,C6,5,FO,9,A 
6,1 
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30 DATAA9,1,9D,B8,1F,DO,4E,A9,20,A6,1,DO,1F,A5,CB,C9,2D,DO,9,A5,1,FO,2,C6,1,B8,5 
O 

35 DATAC,C9,2E,DO,8,A5,1,C9,14,FO,2,E6,1,A6,1,A9,7,9D,B8,1F,A9,1,9D,B8,97,A9,20, 
264A 

40 DATA9D,B7,1F,9D,B9,1F,AD,8D,2,29,4,DO,12,A5,2,DO,12,A9,O,9D,A2,1F,A9,7,9D,A2, 
97 

45 DATAA9,FF,DO,2.A9,O,85,2,A9,O,85,FE,A9,1D,85,AD,A9,EA,85,AC,AO,16,B1,AC,C9,2, 
90 

50 DATA9 , C9,6 , BO ,2,E6,FE,B8,50,6 A , 85 , FA, A9,20,91 , AC , A5 , FA , C9,1 , FO , F1 , AO , O , B1 , AC , 
C9,28BE 

55 DATA21,BO,E9,C9,7,90,E,AD,D,90,30,5,A9,89,8D,D,90,A9,O,FO,39,C9,4,FO,40,84,FB 
60 DATAA9,5,85,10 , A2,6,86,64 , A5,64 , FO , 1E , BD , F2,1F , F8,29 , F , 18,65,10,48,29,10,85,6 
4,A9 

65 DATA1,85,10,68,29,F,9,BO,D8,9D,F2,1F,CA,DO,DE,A9,FD,8D,D,90,A4,FB,A9,1,91,AC, 
AA,24C8 

70 DATA20,71, EA , BD , ID , 14,91 , AE , E6 , AC , DO, 2 , E6 , AD , A5 , AC, C9 , E4 , FO , 3,4C , DI , 10 , A5 , AD , 
C9,1F 

75 DATADO , F7 , AD , D, 90,10,6,38 , E9,16 , BD , D , 90,20,94 , EO , A9,1F , 85 , AD, A9 , E4,85, AC , AO , O 
,B1 

80 DATAAC,C9,2,BO,3,4C,19,12,C9,5,90,24,C9,7,BO,F5,A5,FE,C9,4,90,13,A5,5,DO,EB,A 
5.28D1 

85 DATA63,25 , A , DO , E5 , A5 , FD , DO , E1 , A9 , EE , 8D, C , 90 , A9,2,85 , FD , 4C , E , 12,85 , FA , A9,20,91 
, AC 

90 DA TA9B,A6,F A,18,7D,18,14,A8,B1,AC,C9,7,DO,E,C6,4,A9,FF,8D,D,90,A9,20,85,5,4C, 
58 

95 DATA10,C9,21,BO,49,A5,FA,C9,4,FO,38,A5,FB,C9,4,DO,1A,84,FC,98,18,69,16,A8,B1, 
AC,2849 

100 DATAC9,21,BO,B,A9,4,91,AC,20,71,EA,A9,7,91,AE,A4,FC,A5,FA,A6,FB,EO,A,DO,E,C9 
, 2, DO 

105 DATA4 , A9,3 , DO , 2 , A9,2 , A2 , O , 86 , FB , E6, FB , 91 , AC , AA , 20,71 , EA, BD , ID , 14,91 , AE , C6 , AC 
,A5 

110 DATAAC,C9,FF,DO,8,C6,AD,A5,AD,C9,1D,FO,3,4C,77,11,A9,O,85,FD,A2,O,AD,C,90,10 
,A,2A01 

115 DATACE,C,90,C9,D5,BO,3,8E,C,90,86,FD,E6,3,A5,3,29,3,DO,50,A5,O,E6,O,C9,3,90 
120- DATA8,C9,6,90,25,A9,1,85,0,AO,O,B9,16,1E,C9,5,FO,4,C9,6,DO,F,99,15,1E,AA,BD, 
21 

125 DATA 14,99,15,96 , A9,20,99,16,1E , CB , DO, E3 , FO , 1F , AO , FF , B9,16,1E , C9,5 , FO , 4 , C9,6 , 
DO,229D 

130 DATAF,99,17,1E,AA,BD,21,14,99,17,96,A9,20,99,16,1E,88,DO,E3,A5,FE,DO,3,4C,41 
,10,A5 

135 DATA4,DO,4,A5,5,FO,3,4C,58,10,A2,O,BD,E5,1F,DD,F3,1F,90,9,DO,12,E8,EO,6,DO,F 
1 

1 40 DATAFO,B,A2,7,BD,F2,1F,9D,95,13,CA,DO,F7,A9,O,BD,C,90,8D,D,90,A9,AB,AO,13,20 
,1E,2456 

145 DATACB,AD,8D,2,29,4,FO,F9,4C,D,10,13,90,21,21,21,21,21,21,21,21,21,21,21,21, 
21 ,21 

150 DATA21,21,21,21,21,21,21,21,1E,20,20,20,20,20,20,46,20,20,20,46,20,20,20,46, 
8D,8D,1C 

155 DATA20,20,20,20,45,20,45,20,45,20,45,20,45,20,45,20,45,8D,8D,1C,20,20,20,20, 
107E 

1 60 DATA45,20,45,20,45,20,45,20,45,20,45,20,45,8D , 8D , 1C , 20,20,20,20,45,20,45,20 , 
45,20,45 

165 DATA20,45,20,45,20,45,8D,8D,1C,20,20,45,20,45,20,45,20,45,20,45,20,45,20,45, 
20,45,20 

170 DATA45,8D,8D,1C,20,20,20,20,45,20,20,20,45,20,20,20,45,20,20,20,45,8D,90,8D, 
8D,1200 

175 DATA8D,8D,8D,8D,8D,8D,8D,8,0,21,92,85,83,8F,92,84,21,21,21,21,21,21,21,21,90 
,95,8E,94 

180 DATA8F,93,21,21,BO,BO,BO,BO,BO,BO,21,21,21,21,21,21,21,21,BO,BO,BO,BO,BO,BO, 
21,13 

185 DATA 12, 11 , 11 , 11 , 11 , ID, ID, ID, ID,5,46,49,4E, ID,4A,55,45,47,4F,92,0, 1947 

190 DATAO,O,10,28,10,0,0,0,0,22,80,10,4,42,10,4,54,BA,FE,FE,D6,BA,92,44,2A,5D,7F 

195 DATA7F,6B,5D,49,22,O,O,0,10,10,10,0,O,22,49,5D,6B,7F,7F,5D,2A,6B,77,6B,7F,3E 
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. 1C ,8 

: ; DAT A8,8,1C,3E,1C,1C,1C,3E,6B,A2,0,8A,9D,0,ID,E8,EO,11 
. 5 DATA13,9D,EF,1B,E8,E0,52,D0,F5,4C,D,10,15,17,16,7,1,3 


DO, F8,BD,BO,16ED 
3,1,3,3,3,2,2,7 ,667,00 


1. . r ORJ=4096T05160: READH-T-: D=0: F0RI = 1T0LEN(HÍ : ) : X=ASC (MXD$ (H$ , I) ) 

. :5 D=D*16- ( X—48) * ( X >47ANDX<58) - (X-55) * ( X >64AIMDX<71) : NEXT 
II: IFD< 256G0T0235 

”*5 IFC-DTHENPRINT"ERROR ENTRE LINEAS"PEEK(63)-10"-"PEEK(63):E=E+1 


130 C=0:J=J-1:GQTQ240 
135 POKEJ,D:C=C+D 
240 NEXT:PRINTE"EÍ:RÜRES" 

250 IFETHENNEW 
260 P0KE45,40:P0KE46,20:CLR 

¿ i PESETAS t ■ 


PREMIADO CON 

sS)®® 


CONCURSO 


e33A 

033A 

033A 

033A 

033A 

C33A 

033A 

033A 

033A 

033A 

033A 


033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
; 033A 
l 033A 
033A 
033A 
033A 
033A 
033A 
033A 
033A 
O 33 A 
033A 
033A 
033A 
033A 
1OOD 
100F 
1012 
1014 
1017 
1019 


A9 FF 
8D 05 90 
A9 08 
8D OF 90 
A9 OF 
8D OE 90 


5 **************** 

101C 

85 OA 

- * * 
i 

101E 

A9 00 

;* MOSCAS VI * 

1020 

85 05 

* 

II 

II 

II 

II 

II 

II 

II 

II 

* 

1022. 

85 OC 

• * * 
i 

1024 

A9 03 

;* JAUME MARIA * 

1026 

85 04 

;* SAGUER * 

1028 

A9 09 

• * * 
i 

102A 

85 01 

;* SO—4—1985 * 

102C 

A9 93 

• * * 

102E 

20 D2 FF 

;**************** 

1031 

A2 2C 


1033 

BD 7F 13 

RESOL EQU *9005 

1036 

9D CE 1F 

COLOR EQU *900F 

1039 

A9 01 

VOLUM EQU *900E 

103B 

9D CE 97 

OSCIL EQU *900C 

103E 

CA 

RUIDO EQU *900D 

103F 

DO F2 

CROUT EQU *FFDS 

1041 


WSTRI EQU *CB1E 

1041 


ACOLO EQU *EA71 

1041 


RANDO EQU *E094 

1041 

A9 04 

PUNTO EQU *137F 

1043 

85 00 

TACOL EQU *14£1 

1045 

E6 OC 

TABCO EQU *141D 

1047 

A5 OC 

INCRE EQU *1418 

1049 

C9 04 

CTRL EQU *0£8D 

104B 

90 04 

DISCR EQU *00 

104D 

A9 05 

CONAV EQU *01 

104F 

85 OA 

TITIR EQU *0£ 

1051 

A9 E4 

TISCR EQU *03 

1053 

AO 12 

VIDAS EQU *04 

1055 

20 1E CB 

TIMUE EQU *05 

1058 

A2 FF 

DIFIC EQU *0A 

105A 

AO 20 

PANTA EQU *0C 

105C 

88 

TIEMP EQU *FA 

105D 

DO FD 

TECLA EQU *CB 

105F 

CA 


1060 

DO F8 


1062 

A5 05 


1064 

FO 13 

;*INICIALIZACION 

1066 

C6 05 


1068 

FO 09 

ORG *100D 

106A 

A6 01 

INIT LDA #*FF 

106C 

A9 01 

STA RESOL 

106E 

9D B8 1F 

LDA #*08 

1071 

DO 4E 

STA COLOR 

1073 

A9 20 

LDA #*0F 

1075 

A6 01 

STA VOLUM 

1077 

DO 1F 


STA DIFIC 
LDA #0 
STA TIMUE 
STA PANTA 
LDA #3 
STA VIDAS 
LDA #9 
STA CÜNAV 
LDA #$93 
JSR CROUT 
LDX #$2C 

ARPUN LDA PUNTO,X 
STA $1FCE,X 
LDA #1 
STA $97CE,X 
DEX 

BNE ARPUN 

;*PR INTCIPO JUEGO 
5 

PRI1 LDA #4 

STA DISCR 
INC PANTA 
LDA PANTA 
CMP #4 
BCC PANTB 
LDA #5 
STA DIFIC 
PANTB LDA #$E4 
LDV #$12 
JSR WSTRI 
RETAR LDX #$FF 
NEXTX LDY #$£0 
NEXTY DEY 

BNE NEXTY 
DEX 

BNE NEXTX 
LDA TIMUE 
BEQ MITEC 
DEC TIMUE 
BEQ LOO 
LDX CONAV 
LDA #1 
STA $1FB8,X 
BNE LO1 

LOO LDA #$20 
LDX CONAV 
BNE PRINT 
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1079 




• **************** 

10D1 

AO 

16 


ABAJO 

LDY 

#$16 

1079 




5 


10D3 

B1 

AC 



LDA 

<$AC>,Y 

1079 




; MUEVE NAVE 

10D5 

C9 

02 



CMP 

#2 

1079 




5 


10D7 

90 

09 



BCC 

B0RR1 

1079 




; $£E- 

=DERECHA 

10D9 

C9 

06 



CMP 

#6 

1079 




; $£D 

=1ZQUIERDA 

1ODB 

BO 

02 



BCS 

NB0R1 

1079 




5 


10DD 

E6 

FE 



INC 

$FE 

1079 




• **************** 

1ODF 

B8 



NB0R1 

CLV 


1079 




5 


1OEO 

50 

6A 



BVC 

N0RM1 

1079 

A5 

CB 


MITEC 

LDA TECLA 

10E2 

85 

FA 


B0RR1 

STA 

TIEMP 

107B 

C9 

£D 



CMP #$2D 

10E4 

A9 

£0 



LDA 

#$£0 

107D 

DO 

09 



BNE DERE 

10E6 

91 

AC 



STA 

<$AC>,Y 

107F 

A5 

01 



LDA CONAV 

10E8 

A5 

FA 



LDA 

TIEMP 

1081 

FO 

02 



BEQ NOPU 

1OEA 

C9 

01 



CMP 

#1 

1083 

C6 

01 



DEC CONAV 

1OEC 

FO 

F1 



BEQ 

NB0R1 

1085 

B8 



NOPU 

CLV 

10EE 

AO 

00 



LDY 

#0 

1086 

50 

oc 



BVC MUEVN 

10F0 

B1 

AC 



LDA 

($AC),Y 

1088 

C9 

£E 


DERE 

CMP #$£E 

1 OFE 

C9 

£1 



CMP 

#$21 

108 A 

DO 

08 



BNE MUEVN 

10F4 

BO 

E9 



BCS 

NB0R1 

108C 

A5 

01 



LDA CONAV 

10F6 

C9 

07 



CMP 

#7 

108E 

C9 

14 



CMP #$14 

10FS 

90 

OE 



BCC 

L03 

1090 

FO 

02 



BEQ MUEVN 

1OFA 

AD 

OD 

90 


LDA 

RUIDO 

1092 

E6 

01 



INC CONAV 

1OFD 

30 

05 



BMI 

NRUI 1 

1094 

A6 

01 


MUEVN 

LDX CONAV 

1OFF 

A9 

89 



LDA 

#$89 

1096 

A9 

07 



LDA #7 

1101 

8D 

OD 

90 


STA 

RUIDO 

1098 

9D 

B8 

1F 

PRINT 

STA $1FB8,X 

1 104 

A9 

00 


NRUI 1 

LDA 

#0 

109B 

A9 

01 



LDA #1 

1106 

FO 

39 



BEQ 

ESCR1 

109D 

9D 

BQ 

97 


STA $97B8,X 

1 108 

C9 

04 


LO 3 

CMP 

#4 

1 OAO 

A9 

20 



LDA #$20 

110A 

FO 

40 



BEQ 

N0RM1 

10A2 

9D 

B7 

1F 


STft $1FB7,X 

1 10C 

84 

FB 



STY 

$FB 

10A5 

9D 

B9 

1F 


STA $1FB9,X 

11OE 

A9 

05 



LDA 

#5 

10A8 




5 


1 110 

85 

10 



STA 

$10 

10A8 




5 


1112 

A2 

06 



LDX 

#6 

10A8 




; DISPARA 

1114 

86 

64 



STX 

$64 

10A8 




5 


1116 

A5 

64 


WPUNT 

LDA 

$64 

10A8 




5 


1118 

FO 

1E 



BEQ 

PUFF 

10A8 




- ===== 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

111A 

BD 

F£ 

1F 


LDA 

$1FF2,X 

10A8 

AD 

8D 

02 


LDA CTRL 

1 1 ID 

F8 




SED 


10AB 

£9 

04 



AND #4 

1 1 1E 

£9 

OF 



AND 

#$0F 

1OAD 

DO 

12 



BNE L01 

1 120 

18 




CLC 


1OAF 

A5 

02 



LDA TITIR 

1121 

65 

10 



ADC 

$10 

10B1 

DO 

12 



BNE LOE 

1 123 

48 




PHA 


10B3 

A9 

00 



LDA #0 

11E4 

£9 

10 



AND 

#$10 

10B5 

9D 

A2 

1F 


STA $1FA£,X 

1 1E6 

85 

64 



STA 

$64 

10B8 

A9 

07 



LDA #7 

1128 

A9 

01 



LDA 

#1 

10BA 

9D 

A£ 

97 


STA $97A£,X 

1 1EA 

85 

10 



STA 

$10 

10BD 

A9 

FF 



LDA #$FF 

112C 

68 




PLA 


1OBF 

DO 

02 



BNE GUTI 

1 12D 

£9 

OF 



AND 

#$0F 

10C1 

A9 

00 


LO 1 

LDA #-0 

112F 

09 

BO 



ORA 

#$B0 

10C3 

85 

02 


GUTI 

STA TITIR 

1 131 

D8 




CLD 


10C5 




• **************** 

1132 

9D 

FE 

1F 


STA 

$1FF2,X 

10C5 




5 


1135 

CA 




DEX 


10C5 




; SUBE 

TIROS NAVE 

1136 

DO 

DE 



BNE 

WPUNT 

10C5 




5 


1 138 

A9 

FD 


PUFF 

LDA 

#$FD 

10C5 




;Dft PUNTOS Y MfiTft 

113A 

8D 

OD 

90 


STA 

RUIDO 

10C5 




5 


1 13D 

A4 

FB 



LDY 

$FB 

10C5 




;MOSCAS. 

11EF 

A9 

01 



LDA 

#1 

10C5 




5 


1 141 

91 

AC 


ESCR1 

STA 

<$AC),Y 

10C5 




;**************** 

1143 

AA 




TAX 


10C5 




5 


1144 

£0 

71 

EA 


JSR 

ACOLO 

10C5 

A9 

00 


LOE 

LDA #0 

1147 

BD 

ID 

14 


LDA 

TABCO,X 

10C7 

85 

FE 



STA $FE 

1 14A 

91 

AE 



STA 

<$AE),Y 

10C9 

A9 

ID 



LDA #$1D 

114C 

E6 

AC 


N0RM1 

INC 

$AC 

10CB 

85 

AD 



STA $AD 

1 14E 

DO 

02 



BNE 

NCER1 

10CD 

A9 

EA 



LDA #$EA 

1150 

E6 

AD 



INC 

$AD 

1OCF 

85 

AC 



STA $AC 

1 152 

A5 

AC 


NCER1 

LDA 

$AC 
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1154 

C9 E4 


CMP #*E4 

::56 

FO 03 


BEQ CERO 1 

-1-3 

4C DI 10 

JMABA 

JMP OBOJO 

.:r 

A5 AD 

CERO 1 

LDP *0D 

:i5D 

C9 1 F 


CMP #* 1 F 

. i F 

DO F7 


BNE JMOBO 

1161 

AD OD 90 


LDO RUIDO 

1 2 64 

10 06 


BPL RUOFF 

1166 

38 


SEC 

1167 

E9 16 


SBC #*16 

1169 

8 D OD 90 


STO RUIDO 

: 16 C 

: i 6 C 


• **************** 

5 

: 16C 
116 C 


; BAJA 

5 

MOSCOS TIRO 

: 16C 
:i 6 C 


;TIROS-MOSCOS 

5 

:i 6 C 

116 C 


;**************** 

5 

116C 

20 94 EO 

RUOFF 

JSR RANDO 

116F 

A9 1F 


LDA #$1F 

1171 

85 AD 


STA $AD 

1173 

A9 E4 


LDA #$E4 

1175 

85 AC 


STA $AC 

1177 

AO 00 

SUBE 

LDY #0 

2 179 

B1 AC 


LDA <$AC),Y 

117B 

C9 02 


CMP #2 

117D 

BO 03 


BCS HAZ 

117F 

4C 19 12 

JMNO 

JMP N0RM2 

1 18c: 

C9 05 

HAZ 

CMP #5 

1184 

90 24 


BCC BORRE 

1 186 

C9 07 


CMP #7 

1188 

BO F5 


BCS JMNO 

1 18A 

A5 FE 


LDA $FE 

118C 

C9 04 


CMP #4 

1 18E 

90 13 


BCC LIO 

1 190 

A5 05 


LDA TIMUE 

1 192 

DO EB 


BNE JMNO 

1194 

A5 63 


LDA $63 

1196 

25 OA 


AND DIFIC 

1198 

DO E5 


BNE JMNO 

1 19A 

A5 FD 


LDA $FD 

119C 

DO El 


BNE JMNO 

1 19E 

A9 EE 


LDA #$EE 

11A0 

8 D OC 90 


STA OSCIL 

1 1A3 

A9 02 

LIO 

LDA #2 

has 

85 FD 


STA $FD 

1 1A7 

4C OE 12 


JMP ESCR2 

11 AA 

85 FA 

BÜRR2 

STA TIEMP 

1 1AC 

A9 20 


LDA #$20 

11AE 

91 AC 


STA ($AC),Y 

1 1 B 0 

98 


TYA 

1 1B1 

A 6 FA 


LDX TIEMP 

1 1B3 

18 


CLC 

11B4 

7D 18 14 


ADC INCRE,X 

1 1B7 

A 8 


TAY 

11B8 

B1 AC 


LDA ($AC),Y 

1 IBA 

C9 07 


CMP #7 

11BC 

DO OE 


BNE N07 

1 1BE 

C 6 04 


DEC VIDAS 

neo 

A9 FF 


LDA #$FF 

1 ICE’ 

8 D OD 90 


STA RUIDO 

11C5 

A9 20 


LDA #$20 

1 1C7 

85 05 


STA TIMUE 

11C9 

4C 58 10 


JMP RETAR 

1 ICC 

C9 21 

N07 

CMP #$21 


Programas 


1 ICE 

BO 

49 


BCS NORME 

1 IDO 

A5 

FA 


LDA TIEMP 

11 D 2 

C9 

04 


CMP #4 

1 1D4 

FO 

38 


BEQ ESCR2 

1 1 D 6 

A5 

FB 


LDA $FB 

1 1 D 8 

C9 

04 


CMP #4 

11 DA 

DO 

1A 


BNE NOTIR 

1 1DC 

84 

FC 


STY $FC 

1 1 DE 

98 



TYA 

1 1DF 

18 



CLC 

1 1 EO 

69 

16 


ADC #$16 

1 1E2 

A 8 



TAY 

11E3 

B 1 

AC 


LDA ($AC),Y 

1 1E5 

C9 

21 


CMP #$21 

1 1E7 

BO 

OB 


BCS NTIRO 

1 1E9 

A9 

04 


LDA #$04 

11 EB 

91 

AC 


STA ($AC),Y 

1 1ED 

20 

71 

EA 

JSR ACOLO 

11 FO 

A9 

07 


LDA #7 

1 1 F 2 

91 

AE 


STA ($AE),Y 

1 1F4 

A4 

FC 


NTIRO LDY $FC 

1 1 F 6 

A5 

FA 


NOTIR LDA TIEMP 

1 1 F 8 

A 6 

FB 


LDX $FB 

1 1FA 

EO 

OA 


CPX #$0A 

1 1FC 

DO 

OE 


BNE INC 

1 1 FE 

C9 

02 


CMP #2 

1200 

DO 

04 


BNE IZQ 

1202 

A9 

03 


LDA #3 

1204 

DO 

02 


BNE ESCR3 

1206 

A9 

02 


IZQ LDA #2 

1208 

A2 

00 


ESCR3 LDX #0 

1 20A 

86 

FB 


STX $FB 

120C 

E 6 

FB 


INC INC $FB 

120E 

91 

AC 


ESCR2 STA <$AC),Y 

1210 

AA 



TAX 

121 1 

20 

71 

EA 

JSR ACOLO 

1214 

BD 

ID 

14 

LDA TABCO, X 

1217 

91 

AE 


STA ($AE) , Y 

1219 

C 6 

AC 


N0RM2 DEC $AC 

121 B 

A5 

AC 


LDA $AC 

121D 

C9 

FF 


CMP #$FF 

121F 

DO 

08 


BNE JM2 

1221 

C 6 

AD 


DEC $AD 

1223 

A5 

AD 


LDA $AD 

1225 

C9 

ID 


CMP #$1D 

1227 

FO 

03 


BEQ CEROS 

1229 

4C 

77 

1 1 

JM2 JMP SUBE 

122C 

A9 

00 


CER05 LDA #0 

122E 

85 

FD 


STA $FD 

1230 

A2 

00 


LDX #0 

1232 

AD 

OC 

90 

LDA OSCIL 

1235 

10 

OA 


BPL NOOSC 

1237 

CE 

OC 

90 

DEC OSCIL 

123A 

C9 

D5 


CMP #$D5 

123C 

BO 

03 


BCS NOOSC 

123E 

8 E 

GC 

90 

STX OSCIL 

1241 

86 

FD 


NOOSC STX $FD 

1243 




5 

1243 




•****SCROLLS***** 

1243 




5 

1243 




;DE LA FORMACION 

1243 




;HACIA LA IZQUI. 

1243 




;0 A LA DERECHA. 

1243 




5 

1243 




;IGNORA LO QUE NO 

1243 




5 SON MOSCAS. 
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Programas 


1243 




5 

1243 




;**************** 

1243 




5 

1243 

E6 

03 


INC TISCR 

1245 

«5 

03 


LDft TISCR 

1247 

29 

03 


ftND #3 

1249 

DO 

50 


BNE L15 

124B 

A5 

00 


LDft DISCR 

124D 

E6 

00 


INC DISCR 

124F 

C9 

03 


CMP #3 

1251 

90 

08 


ECC SIZQU 

1253 

C9 

06 


CMP #6 

1255 

90 

25 


BCC SDERE 

1257 

A 9 

01 


LDft #1 

1259 

85 

00 


STft DISCR 

125B 




;================ 

125B 




5 

125B 




;SCROLL IZQUIERDO 

125B 




5 

125B 




II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

125B 




5 

125B 




5 

125B 

AO 

00 


SIZQU LDY #0 

125D 

B9 

16 

1E 

NXSCI LDA $1E16,Y 

1260 

C9 

05 


CMP #5 

1262 

FO 

04 


BEQ SCIZQ 

1264 

C9 

06 


CMP #6 

1266 

DO 

OF 


BNE NSCIZ 

1268 

99 

15 

1E 

SCIZQ STA $1315,Y 

126B 

AA 



TAX 

126C 

BD 

21 

14 

LDA TACOL,X 

126F 

99 

15 

96 

STA $9615,Y 

1272 

A9 

20 


LDA #$20 

1274 

99 

16 

1E 

STA $1El6,Y 

1277 

C8 



NSCIZ INY 

1278 

DO 

E3 


BNE NXSCI 

127A 

FO 

1F 


BEQ L15 

127C 




5 

127C 





127C 




5 

127C 




;SCROLL DERECHO 

127C 




5 

127C 




II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

II 

127C 




5 

127C 




5 

127C 

AO 

FF 


SDERE LDY #$FF 

127E 

B9 

16 

1E 

NXSCD LDA $1E16,Y 

1281 

C9 

05 


CMP #5 

1283 

FO 

04 


BEQ SCDER 

1285 

C9 

06 


CMP #6 

1287 

DO 

OF 


BNE NSCDE 

1289 

99 

17 

1E 

SCDER STA $1El 7,Y 

128C 

AA 



TAX 

128D 

BD 

21 

14 

LDA TACOL,X 

1290 

99 

17 

96 

STA $9617,Y 

1293 

A9 

20 


LDA #$20 

1295 

99 

16 

1E 

STA $1E16,Y 

1298 

88 



NSCDE DEY 

1299 

DO 

E3 


BNE NXSCD 

129B 




- **************** 

129B 




5 

129B 




;COMPROBACION DE 

129B 




9 

129B 




;FIN DE JUEGO. 

129B 




■ 

6 


129B 




;**************** 

129B 




5 



129B 

A5 

FE 


L15 

LDA 

$FE 

129D 

DO 

03 



BNE 

NJM4 

129F 

4C 

41 

10 


JMP 

PRI1 

12A2 

A5 

04 


NJM4 

LDA 

VIDAS 

12A4 

DO 

04 



BNE 

JMP5 

12 A6 

A5 

05 



LDA 

TI MUE 

12 A8 

FO 

03 



BEQ 

NJM6 

12AA 

4C 

58 

10 

JMP5 

JMP 

RETAR 

12AD 




5 



12AD 




5 



12AD 




; FIN JUEGO. 

12AD 




5 



12AD 





= = = = : 

II 

II 

II 

II 

II 

II 

II 

II 

12AD 




5 



12AD 

A2 

00 


NJM6 

LDX 

#0 

12AF 

BD 

E5 

1F 

NPUN 

LDA 

$ 1 FES, X 

12B2 

DD 

F3 

1F 


CMP 

$ 1FF3, X 

12B5 

90 

09 



BCC 

RECOR 

12B7 

DO 

12 



BNE 

NRECO 

12B9 

E8 




INX 


12 BA 

EO 

06 



CPX 

#6 

12BC 

DO 

F1 



BNE 

NPUN 

12BE 

FO 

OB 



BEQ 

NRECO 

12C0 

A2 

07 


RECOR 

LDX 

#7 

12C2 

BD 

F2 

1F 

PASS 

LDA 

$1FF2,X 

12C5 

9D 

95 

13 


STA 

$1395,X 

12C8 

CA 




DEX 


12C9 

DO 

F7 



BNE 

PASS 

12CB 

A9 

00 


NRECO 

LDA 

#0 

12CD 

8 D 

oc 

90 


STA 

OSCIL 

12DO 

8 D 

OD 

90 


STA 

RUIDO 

12D3 

A9 

AB 



LDA 

#$AB 

12D5 

AO 

13 



LDY 

#$13 

12D7 

20 

1E 

CB 


JSR 

WSTRI 

12DA 

AD 

8 D 

02 

GOVER 

LDA 

CTRL 

12DD 

29 

04 



AND 

#4 

12DF 

FO 

F9 



BEQ 

GOVER 

12E1 

4C 

OD 

10 


JMP 

INI T 

12E4 




5 



12E4 




2 **************** 

12E4 




5 



12E4 




; PROGRAMA QUE 

12E4 




5 



12E4 




; PREPARA 

12E4 




5 



12E4 




; CARACTERES. 

12E4 




5 


i 

12E4 




2 *************** 

12E4 




5 



12E4 





ORG 

$1401 

1401 

A2 

00 



LDX 

#0 

1403 

8 A 




TXA 


1404 

9D 

00 

ID 

NXBY1 

STA 

$1DOO,X 

1407 

E8 




INX 


1408 

EO 

11 



CPX 

#$11 

140A 

DO 

F8 



BNE 

NXBY1 

140C 

BD 

BO 

13 

NXBY2 

LDA 

$13B0,X 

140F 

9D 

EF 

IB 


STA 

$1BEF,X 

1412 

E8 




INX 


1413 

EO 

52 



CPX 

#$52 

1415 

DO 

F5 



BNE 

NXBY2 

1417 

4C 

OD 

10 


JMP 

INIT 

141A 




5 * FIN PROGRAMA 
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Programas 


Desensamblador 

para VIC-IO 



j^esde Santiago de Chile, 
Eduardo Ahumada nos ha remiti¬ 
do este desensamblador para el 
• IC-20 estándar, que será de 
sumo interés para todos aquellos 
aficionados al lenguaje máquina. 

Este programa, escrito en BA¬ 
SIC con un total de 5 K de RAM, 
jnto con un mapa de memoria 
del ordenador, te permitirá acce¬ 
der y examinar partes del Siste¬ 
ma Operativo, así como ver el fun¬ 
cionamiento de misteriosas sub- 
'utinas que tienen algunos pro¬ 
gramas. 

Para todos aquellos que hayan 
oído hablar de desensamblado¬ 
res, pero nunca hayan trabajado 


con uno o incluso no sepan su 
utilización, diremos que la base 
de este tipo de programas es tra¬ 
ducir código máquina a lenguaje 
ensamblador. Es decir, lee los 
contenidos de posiciones conse¬ 
cutivos de la memoria y «traduce» 
dichos contenidos a instruccio¬ 
nes en lenguaje ensamblador. 
Este lenguaje es el más próximo 
a código máquina, y en él, cada 
instrucción de las que puede eje¬ 
cutar directamente el microorde¬ 
nador viene representada por un 
conjunto de letras denominadas 
nemónicos. 

Una vez tecleado y ejecutado el 
programa, nos pide la dirección 


de memoria a partir de la cual se 
desea comenzar a desensamblar. 
A continuación se comienza a im¬ 
primir en la pantalla las instruc¬ 
ciones en ensamblador, hasta 
completar una página (17 instruc¬ 
ciones). En cada línea se imprime 
la dirección decimal de la instruc¬ 
ción, su código nemotécnico y 
sus operandos, si los hay. 

Por supuesto, existe la posibili¬ 
dad de que alguna posición de 
memoria no contenga ninguna 
instrucción válida, en cuyo caso 
el programa le asignará el código 
«CON» (constante) e imprimirá su 
valor decimal y el carácter ASCII 
correspondiente. 

Una vez completada una pági¬ 
na, y mediante las teclas de fun¬ 
ción, se podrá pasar a la página 
siguiente —F7— o retroceder a la 
página anterior —F1—. Incluso 
se podrá cortar este listado y em¬ 
pezar a desensamblar a partir de 
una nueva dirección pulsando F2, 
mediante la cual volveremos a la 
pantalla inicial, lugar donde se 
solicitará la posición de memoria. 

Para lograr el efecto de retroce¬ 
so, es necesario que el programa 
recuerde cuál era la dirección de 
la primera instrucción desensam¬ 
blada de cada página. Esta direc¬ 
ción es recordada en la tabla S, 
que como tiene 10 posiciones, 
puede «recordar» hasta 10 pági¬ 
nas. 


10 DEFFNA (X ) =F'EEK ( X + l) «256+Y 
100 G0SUB2000:GOTO 1000 

300 F'RINT" #"MID*(STR$<Y) ,2,3) 5 

301 P=P+ 1 ;RETURN 

310 IFX0255THENPRINTY; :GGT0301 

312 J = I:IFI< 350RI > 127THENI=46 

313 F'R I NT " " CHRí (34) ; CHR* (I ) ; CHRÍ (34) 
320 F'R I NT Y" II, X " ; : GOTOSO 1 

330 PRINTY" II, Y" ; :G0T0301 

340 PRINTFNA <P>; 

341 P=P+2:RETURN 


CONCURSO 


PREMIADO CON 
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Programas 


350 

360 

370 

380 

390 

400 

401 
410 
900 

930 

931 

950 

951 

952 

953 

954 

955 

956 

1000 
1010 
1015 
1020 
1030 
1060 
1070 
1080 
1090 
1 100 
1200 
1210 
2000 
2010 
5000 
5010 
5100 
5110 
5120 
5130 
5140 
5150 
5200 
5210 
5220 
6000 
ASL 
6010 


,X) 


:GQT0301 
i:G0T0301 
')";:G0T0341 


I" , F7) ; TAB (C7) ; : RETURN 


F’RINTFNAÍP) "II, X"; :G0T0341 
PRINTFNA (P) "II, Y"! :GGT0341 
PRINT" <"MIDi-(STRÍ (Y) ,2,3) 1 
PRINT" ( "MIDÍ (STRÍ- (Y) ,2,3) "> ,Y" 

PRINT" <"MID$<STR$<FNA(P>),2,5) 

X=Y: IFX >=128THENX=X—256 
PRINTP+l+X;:GQT0301 
RETURN 

F'R I NT " Sf' LEFTT- < " 

GETTSÍ: IFT8f=" "THEN930 
T8=ASC(T8#):RETURN 
6QSUB900:X8Í="":PRINT" -II'; 

G0SUB930:IFT8=130RT8=137THEN956 
IF (T8< > 157ANDT8< >20) ORLEN ( X8Í-) =0THEN954 
PRINT"II Ml_ll" s : X8$=LEFT S ( X8Í , LEN < X8$) -1) : G0T0951 
IFT8>=48ANDT8< =57THENX8*=X8Í+T8$: F'RINTTS'Í "_lf ; 

IFLEN < X8Í)< L7THEN951 
PRINT" -.RETURN 

G0SUB5100:C7=0:P=DI:PS=0:ST(O)=DI:G0SUB5200 

6QSUB5000:FQRF7=2T018:G0SUB900:PRINT" II"P;:IFF'>65535THENF7=19:GOTO 1060 
X=PEEK(P):IFIí(X)=""THENI=X:X=255 

PRINTRI6HTÍ (I*<X) ,3) ; :P=P+1: Y=F'EEK(P> . 

ONASC(IT(X))-64G0SUB300,310,320,330,340,350,360,370,380,390,410,400:NEXI 
G0SUB930:IFT8=133ANDPS>0THENG0SUB1100:GOTO1O1O 
IFT8=136THENG0SUB1200:GOTO 1010 
IFT8=137THEN1000 
GOTO 1060 

PS=PS-1:F-ST(PS):RETURN 
IFF'S=9THEND I =P: PS=0: ST (O) =P: RETURN 
PS=PS+1:ST(PS)=P:RETURN 

DIMI*(255) ,ST(9):P0KE36879,30:PRINT" H" :LB$=" 

P0KE199,1:F0RI=0T0255:READIÍ(I):NEXT:RETURN 

PRINT "SF-DESENSAMBLADOR-" ; : FORL= 1TO19: F'R INTLB$; : NEXT: RETURN 

PRINT" EI'LBÍ; LBÍ; " S" ; : P0KE81B5, 160: P0KE_'8905,2: RETURN 

60SUB5000:G0SUB5010:F7=3:C7=0:GQSUB900:PRINT"TODAS LAS DIRECCIONES "; 

PRINT"Y VALORES SON EN DECI-MAL.";:F7=8:GOSUB900 

PRINT"DIR. INICIAL =>" ; : F7=21: G0SUB900:PRINT"MF2:FINS" ;:F7=8:C7=16: 

G0SUB950: IFT8=137THENPRI NT " 3" :P0KE36879,27:END 
DI=VAL(X8Í):IFDI>65530THENG0SUB900:PRINT" ";:GOTOí 

RETURN 

G0SUB5000:G0SUB5010:F7=20:C7=0:G0SUB900:PRINT"E* r l:PAG. ANTERIOR"; 

F7=21:G0SUB900:PRINT"F7:PAG. SIGUIENTE";:F7=22:G0SUB900 
PRINT"F2:FINS';:RETURN 

DATAKBRK , FIORA , , , , BORA , BASL., , KPHP, AORA , KASL , , , EORA , EASL , , LBF'L , IORA , , , , CORA , C 


: L7=5 


5130 


DATA,KCLC,GORA,,,,FORA,FASL,,EJ SR,HAND,,,BBIT,BAND,BROL,,KPLP,AAND,KROL,,EB 
IT.EAND 

6020 DAT AERDL-, ,LBMI,I AND,,,,CAND,CROL, ,KSEC,GAND,, ,,FAND,FROL,,KRTI,HEOR, ,,,BEOK 
81 SR 

6030 DAT A,KPHA,AEOR,KLSR,,EJMF',EEOR,ELSR,,LBVC,IEOR,,,,CEOR,CLSR,,KCLI,GEOR,,,,F 
EOR 

6040 DATAFLSR,,KRTS,HADC, 

6050 DATA,,,CADC,CROR, 

A,,ESTY 

6060 DATAESTA,ESTX,,LBCC,ISTA,,,CSTY,CSTA,DSTX,,KTYA,GSTA,KTXS,,,FSTA,,,ALDY,HLD 
A,ALDX 

6070 DATA,BL.DY,BLDA,BLDX,,KTAY,ALDA,KTAX,,ELDY,ELDA,ELDX,,LBCS,ILDA,,,CLDY,CLDA, 


(ADC , , , , BADC , BROR , , KPL.A , AADC , KROR , , J JMP , EADC , EROR , ,LBVS, IADC 
:,,KSEI,GADC,,,,FADC,FROR,,,HSTA,,,BSTY,BSTA,BSTX,,KDEY,,KTX 


DLDX 

6080 

KDEX 

6090 

SBC 

7000 

C 

7010 


DATA , KCLV , GLDA , KTSX , , FLDV , FLDA , GLDX , , ACPY , HCNP , , , BCF'Y , BCMP , BDEC , , KINY , ACMF*, 
DATA , ECPY , ECMP , EDEC , , LBNE , ICMP, , , , CCMP , CDEC , , KCLD , GCMP , , , , FCMF*, FDEC , , ACF’X ,F 
DATA,,BCPX,BSBC,BINC, ,KINX,ASBC,KNOP, ,ECPX,ESBC,EINC,,LBE£!,ISBC,,, ,CSBC,CIN 
DATA,KSED,GSBC,,,,FSBC,FINC,BCÜN 
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Base 
de datos 



u 

I loy día, el flujo de informacio- 
en las sociedades desarrólla¬ 
las como la nuestra, es cada vez 
~¿*cr y resulta complicado para 
-:s oersonas asimilar toda la infor- 
~ ón que reciben desde su entor- 
' En pleno inicio de la «Era de la 
f'S'mación», son cada vez más im- 
: cantes los medios que ayudan al 
~: ~Dre a organizar, almacenar y re- 
-irrar informaciones de toda ín- 
:: e y que le permiten tomar deci- 
~ mes rápidas y, sobre todo, segu¬ 
ís por estar basadas en datos rea- 
m Por ello, las Bases de Datos 
sm una de las más importantes 
¿zücaciones desarrolladas en el 
~-ndo informático. Y, por supues- 
nay algunas versiones sencillas 
zara ordenadores domésticos, 
::tio esta que nos remite para el 
I: mmodore 64 Manuel Castell, lec- 
de nuestra revista de Guadala- 
¿ra. para, según sus propias pala- 
mas, «poder ordenar todo lo ima¬ 
ginable». 

_a utilización de esta base de da- 
*:s es muy sencilla, pues siempre 
está presente el menú principal, del 
:ue se toma la opción deseada en 
:ada caso. 

Al hacer un RUN, tras teclear el 
zrograma, aparece la presentación 
seguidamente, el generador de 
caracteres rediseña nueve caracte¬ 
res castellanos, que son: 

C= n es la letra Ñ 
C= m es la letra Ñ 
C = a es la letra á 
C= e es la letra é 
C= i es la letra í 
C= o es la letra ó 
C= u es la letra ú 
es el signo ¿ 
es el signo ¡ 

(C= es la tecla Commodore) 

Las opciones que aparecen a 
continuación en el menú principal 
son: 

F1. Introducir datos. Una vez 
creado el fichero con F2, con 
esta opción se presentan los 
campos que se han definido. 
F2. Crear un fichero nuevo. Todo 
lo que hay en el ordenador se 
borra (se puede guardar un fi¬ 
chero anterior con F4) y se 
puede crear un fichero nuevo 
con diferente dimensión que 
el anterior, definiendo sus 
correspondientes campos. 

F3. Consultar los datos que hay 


en el fichero. Se puede exa¬ 
minar todo el fichero, ficha a 
ficha. Con la tecla «f» se vuel¬ 
ve al menú principal. 

F4. Grabar un fichero en el cas¬ 
sette. 

F5. Revisar fichas. Se pueden 
corregir datos introducidos 
erróneamente en una ficha. 

F6. Cargar un fichero grabado 
previamente con F4. 

F7. Buscar en el fichero. Se pue¬ 
de pedir al programa que pre¬ 
sente todas las fichas en las 
que aparece una determina¬ 
da cadena de caracteres en 
cualquier campo. 

F8. FIN del trabajo. 

Con sólo seguir las instrucciones 
del programa y completar los datos 
que solicita, se puede crear rápida¬ 
mente una útil y sencilla base de 
datos. Para introducir los caracte¬ 
res castellanos generados basta 
con pulsar las teclas indicadas an¬ 
teriormente. Sin embargo, aquellos 
que quieran resumir algo el progra¬ 
ma pueden suprimir esta posibili¬ 
dad eliminando el generador de ca¬ 


racteres de la siguiente manera: 

Líneas Sustituir por: 

86 (Suprimir) 

90 90 GOSUB 610 

526 a 606 (Suprimir) 

La estructura de «Base de Datos» 

para los que están interesados se 

detalla a continuación: 

2-90 Presentación del progra¬ 
ma y el autor. 

94-170 Menú principal y elec¬ 
ción de opción. 

174-210 Creación de fichero. 

214-254 Introducción de datos. 

258-302 Examen del fichero ficha 
a ficha. 

306-338 Revisión y rectificación 
de fichas. 

342-406 Búsqueda de cadenas en 
el fichero. 

410-450 Grabar fichero desde 
cassette. 

454-518 Cargar fichero desde 
cassette. 

526-570 Generador de caracteres 
ñ, Ñ, á, é, í, ó, ú, ¿, ¡. 

574-606 DATAS de los caracteres 
ñ, Ñ, á, é, í, ó, ú, ¿, ¡. 
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2 REM*********BASE DE DATOS************ 

6 REM MANUEL CASTELL 

10 REM********12-MAYO-1985*************** 

14 PÜKE53281,0: P0KE53280,0 :PRINT" n¡" CHR$(8) CHR* (14) 
18 PRINT"B 

22 PRINT"B AAA SSS EEE 
26 PRINT"BB A S EEE 
30 PRINT"B B AAA SS E 
34 PRINT"BB AAA SSS EEE 
38 PRINT 

42 PRINTTAB(12)" D 
46 PRINTTAB(12)" D EEE 

50 PRINTTAB(12)" DD EEE 

54 PRINTTAB(12)"D D E 

58 PRINTTAB(12)" DD EEE 

62 PRINT 

66 PRINTTAB(16)" D T 

70 PRINTTAB(16)" D AAA TTT O SSS 
74 PRINTTAB(16)" DD ATOOS 
78 PRINTTAB(16)"D D AAA T O O SS 

82 PRINTTAB(16)" DD AAA TT O SSS 

86 PRINT " IMWIIIII “♦—♦“I 

90 G0SUB526 

94 PRINT 'Tl" : PRINTTAB (10) " AMRMI r# 

98 PRINTTAB (6) " tiUMUFl ... -.NTRODUCIR DATOS 
102 PRINTTAB(6) "F3. - . XER FICHERO 

106 PRINTTAB(6)"F5_EVISAR FICHAS 

110 PRINTTAB(6)"F7...IUSCAR EN FICHERO 

118 PRINTTAB(6)"F2...“REAR FICHERO 
122 PRINTTAB(6)"F4.. .IRABAR FICHERO 

126 PRINTTAB(6)"F6_*ACAR FICHERO 

130 PRINTTAB(6)"F8...-IN DEL TRABAJO 
134 PRINTTAB (10) " ««« I I rh—"'K- 


138 

GE TAí: IFA-4f=" ■"THEN214: 

REM 

F1 

142 

IFA-Í- " X" THEN174: 

REM 

F2 

146 

IFA$=" ""THEN258: 

REM 

F3 

150 

IFAi-="K" THEN410: 

REM 

F4 

154 

IF AT= " II" T HEN306: 

REM 

F5 

158 

IFAí = " Jl" THEN454: 

REM 

F6 

162 

IFAt =" II" THEN342: 

REM 

F7 

166 

IFAÍ<>" ■'THEN138 



1 70 

END: 

REM 

F8 


174 REM CREAR FICHERO 
178 RUN182 

182 INPUT"rWülTvOMBRE DEL FICHERO" ; NS 
186 INPUT" WWTOMERO DE CAMPOS";K:K=K-1 
190 INPUT"MBlTvOMERO DE FICHAS" ; N 
194 DIM A*(N,K> 

198 FORC=OTQK 

202 PRINT" WtvOMBRE DEL CAMPO"C;:A$(0,0 ="CAMPO "+STR$(C): INPUTAÍ(O 
206 NEXTC 
210 G0TÜ94 

214 REM INTRODUCIR DATOS 
218 F=F+1 

222 PRINT" rj NTRDUCIR DATOS EN FICHA NUMERO"F 

226 IFF>NTHENPRINT" :nW^.-0 HAY MAS F I CHAS ! " : F=N: G0SUB610: G0T094 
230 FORC=OTOK 

234 PRINT A* (0,0 : I NPUTAt- (F , C) 

238 NEXTC 

242 PRINT"rUlül—IN DE LA FICHA NUMERO: "F 

246 INPUT"WWT»UIERES UNA NUEVA FICHA CS/N3";R* 

250 IFR^="S"0RRÍ="»"THEN214 

254 G0T094 

258 REM VER FICHERO 


CONCURSO 


PREMIADO CON 



o m c 


PESETAS 


C) 
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7 = 2 FORR=1TOF 

PRINT"n —r_Ts "N$" FICHA"R 
27<j FüRC=OTOK 

IFPEEK(1824) =32ANDF*EEK(1864)=32ANDPEEK<1904)-32THEN286 
7~5 G0SUB610 
152 PRI NT"n 

PRINrW'Aí (0,0 : PRINTAT (R, C) 

I^O NEXTC 

1=4 G0SUB610:IFAT="F"THEN94 
2=6 NEXTR 

298 PRINT"rjRW—IN DEL FICHERO "NT: G0SUB610 
::2 G0T094 

706. REM REVISAR FICHERO 

210 PRINT"n -EVISAR FICHAS 

7:4 INPUT"WT, OMERO DE LA FICHA' 1 ;R 

718 IFRC1 OR R >F THENPRI NT" iüW^-EL 1 AL "F:G0T0314 
322 F0RC=0T0K 

726 PR I NT " fll" Aí (0,0 : PRINTAT (R,C) 

770 AT=AT(R,C):INPUTAT-:AT(R,C)=AT- 

734 NEXTC 

738 G0T094 

7-2 REM BUSCAR 

346 PRINT" :3*MilMIUSCAR EN EL FICHERO "NT 
350 INPUT" HW-.NTRODUCIR EL NOMBRE: " ; RT- 
754 FORT-1TOF:FORC=OTOK 

758 I FRT< >LEFTT (AT ( T , C) ,LEN(RT) ) THEN398 
362 PRINT" 33—1 CHA NUMERO"T"DE "NT 

766 PRINT" - 

370 FORR=OTOK 

374 IFPEEK(1824)=32ANDPEEK(1864)=32ANDPEEK(1904)=32THEN386 

378 G0SUB610 

382 PRINT"H 

386 REM PRINTAT <T,R) 

390 PRINT" M" AT(O,R > :PRINT AT (T , R) 

394 NEXTR:G0SUB610 
398 NEXTC,T 

402 PRINT".KI«-IN DE LA BUSQUEDAG0SUB614 
406 G0T094 

410 REM GRABAR FICHERO 

414 pr i nt" nmmmi rabar fichero 

418 0PEN1,1,1,NT:PRINT#1,NT 
422 PRINT#1,N:PRINT#1,K 
426 FORR=OTOF 
430 FORC-OTOK 

434 IFAT<R,C)=""THENAT<R,C) ="<§" 

438 PRINT#1,AT(R,C) 

442 NEXTC,R 

446 PRINT#1,"FIN" 

450 CL0SE1:GQT094 

454 REM CARGAR FICHERO 

458 PRINT" 33flWW“ARGAR FICHERO 

462 RUN466 

466 0PEN1,1,0sINPUT#1,NT 
470 INPUT #1,N: INPUT#1,K 
474 DIMAT- (N, K) 

478 FORR-OTON 
482 FORC-OTOK‘ 

486 INPUT#1,AT 

490 IFAT="FIN"THEN502 

494 AT- (R , C) — AT 

498 NEXTC,R 

502 CL0SE1 

506 PRINT" AW—ICHERO: "NT 

510 PRINT"WUMERO MAXIMO DE CAMPOS"K+l 

514 PRINT" « LIMERO MAXIMO DE FICHAS"N 
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518 PRINT"«UÑERO DE FICHAS CON DATOS"R-1:F=R-1 

522 G0SUB610:GOTQ94 

526 REM GENERADOR DE CARACTERES 

530 P0KE52,48:P0KE56,48 

534 P0KE56334 , F'EEK (56334) AND254 

538 POKE1,PEEK(1)AND251 

542 F0RR=0T02047:POKER+12288,PEEK(R+55296):NEXT 
546 POKE1,PEEK(1)0R4 

550 P0KE53272,(PEEK<53272)AND240)+12 
554 F0RR=0TQ8:READC 

55B F0RA=0TQ7:READB:POKEC+A,B:NEXTA 
562 NEXTR 

566 P0KE56334,PEEK(56334)OR1 
570 RETURN 

574 DATA13112,60,0,102,118,126,110,102,0 
578 DAT A13136,60,0,124,102,102,102,102,0 
582 DATA13184,12,24,60,6,62,102,62,0 
586 DATA13192,12,24,60,102,126,96,60,0 
590 DATA13072,12,24,0,56,24,24,60,O 
594 DATA13256,12,24,60,102,102,102,60,O 
598 DATA13248,12,24,102,102,102,102,62,O 
602 DATA12536,24,O,O,24,24,24,24,O 
606 DAT A12528,24,0,24,48,96,102,60,0 

610 P0KE781,23:P0KE782,O:SYS 65520:PRINT“-PULSA UNA TECLA. 

614 POKE180,0:Af="" 

618 GETA#:IFA#=""THEN618 
622 RETURN 



Cómo se ve 

Como se teclea 

Efecto conseguido 

Cómo se ve 

Cómo se teclea 

Efecto conseguido 

Colores del VIC-20 y del 64 


Códigos de cursor y control 


■ 

Ctrl +1 

Negro 

sí 

Home 

Cursor a casa 


Ctrl+ 2 

Blanco 

n 

Shift + home 

Limpia pantalla 

. r l 

Ctrl+ 3 

Rojo 

H 

Crsr 

Cursor derecha 


Ctrl+ 4 

Cian 

II 

Shift + crsr 

Cursor izquierda 

i 

Ctrl+ 5 

Púrpura 

9) 

Crsr 

Cursor abajo 

fiü 

Ctrl+ 6 

Verde 

1 

Shift + crsr 

Cursor arriba 

r» 

va 

Ctrl+ 7 

Azul 

a 

Ctrl+9 

Carácter inverso 

,73 

Ctrl+8 

Amarillo 

■ 

Ctrl + 0 

Carácter normal 




ii 

Del 

Borrar 

Colores del 64 solamente 


ii 

Shift + del 

Insertar 

;a 

Cbm + 1 

Naranja 




r. 

Cbm + 2 

Marrón 

Teclas de función 


8 

Cbm+3 

Rosa 

■ 

F1 


a 

Cbm+4 

Gris oscuro 

31 

F2 = Shift + F1 


:a 

Cbm+5 

Gris medio 

■ 

F3 


ii 

Cbm+6 

Verde claro 

feb 

F4 = Shift + F3 


Ti 

Cbm + 7 

Azul claro 

II 

F5 


■ ■ 

■ ■ 

Cbm+8 

Gris claro 

Si 

F6 = Shift + F5 





II 

F7 





■ 

F8 = Shift + F7 






































LE OFRECE LOS MEJORES LIBROS 
PARA SU ORDENADOR 



P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Descubre los misterios de la 
programación de una forma 
sencilla, con ejemplos, 
programas y organigramas. 

(110 páginas, tamaño 13,5 x 21) 



P.V.P. 750 PTAS. 

(IVA INCLUIDO) 

Un libro especialmente 
dedicado a los que se inician 
por vez primera en el mundo 
del Spectrum. 

(100 páginas, tamaño 13,5x21). 



P.V.P. 900 PTAS. 

(IVA INCLUIDO) 

Un compendio de los 
programas más diversos con 
los que podrá aprender 
jugando las importantnes 
características del BASIC. 
(258 páginas, tamaño 
15,5 x 21,5). 



P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Con utilidades, juegos 
exploxivos y gráficos 
dinámicos que lleva al BASIC 
hasta el mejor 
aprovechamiento de sus 
posibilidades. 

(200 páginas, tamaño 
15,5x21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Una inestimable ayuda que 
complementará la que 
proporciona el manual del 
ordenador. 

(108 páginas tamaño 
13,5 x 21,5). 


P.V.P. 800 PTAS. 

(IVA INCLUIDO) 

Muestra una visión más 
completa del correcto 
funcionamiento del juego de 
instrucciones del C-64. 

(108 páginas, tamaño 
13,5 x 21,5). 



C/BRAVO MURILLO, 377 
28020 MADRID 


COPIE O RECORTE ESTE BOLETIN DE PEDIDO.i 

DESEO RECIBIR LOS SIGUIENTES TITULOS: 

15 HORAS CON EL SPECTRUM (P.V.P. 750) □ 

LOS MEJORES PROGRAMAS PARA EL ZX SPECTRUM (P.V.P. 900) □ 

LOS MEJORES PROGRAMAS PARA EL COMMODORE 64 (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL I (P.V.P. 800) □ 

EL 64 MAS ALLA DEL MANUAL II (P.V.P. 800) □ 

(más 100 ptas. de gastos de envío). 

El importe lo abonaré POR CHEQUE □ CONTRA REEMBOLSO □ CON MI TARJETA 
DE CREDITO □ American Express □ Visa □ Interbank □ 

Número de mi tarjeta 1 | 1 | M 1 | 1 1 | | 1 | 1 | 1 M | 1 1 1 1 


NOMBRE _ 

CALLE_ 

CIUDAD_ 

PROVINCIA . 


. C. P. . 













































































WB*r*KT!JJft7f 1 


r /> #> nt ír ir* F W 


Núm. 2 - 250 Ptas. 

CBM 64 en profundidad/Su- 
perbase 64: el ordenador que 
archiva/Juegos, trucos y apli¬ 
caciones. 


Num. 5 - 250 Ptas. 

Programas, juegos y concur¬ 
so/Londres: Quinta feria de 
Commodore/Basic, versión 


odore 




mm 


Núm. 3 - 250 Ptas. 

Magic Desk, el despacho en 
casa/Herramientas para el 
programado/lnterfaces para 
todos. 


versión 4.75 


Núm. 8 - 250 Ptas. 

Joystick y Paddle para todos 
Misterio del BASIC. EL LO 
GO. Cálculo financiero. Pro 
gramas. 


K f Í fé¥ É 


Programas 
para Vic-20 


Identifica 
tus errores 


Núm. 9-250 Ptas. 

Conversión de programas del 
Vic-20 al C-64. Móntale un 
paddle. Identifica tus errores. 
Software comentado. 


SERVICIO 


i¿izirue. 


DISPONEMOS DE TAPAS ESPECIALES 
PARA SUS EJEMPLARES DE ZX 
(sin necesidad de encuadernación) 


i 


odor 


odore 








/ 




m 


Núm. 11 - 250 Ptas. 

Music-64. Supervivencia (1.* 
parte). Cómo guarda el dis- 
kette la información. Sinteti- 
zador-64. El Forth (1. a parte) 


Núm. 6 - 250 Ptas. 

El misterio del Basic/Lápices 
ópticos para todos/Concur- 
so, juegos, aplicaciones. 


Núm. 12-250 Ptas. 

Commodore-16 por dentro * 
por fuera. Sprites: los aleg'í = 
duendecillos (1. a partei S_ 
pervivencia (1. a parte E 
Forth ( y 3. a parte). 


commodore 


todore 


Núm. 13 - 250 Ptas. 

Análisis: programas ce 
drez. Los Cazafantas^iE 
Vic en el espacio. La i mzr- 
ra que dibuja. Interface : 
lelo. 


Núm. 4 - 250 Ptas. 

El 64 transportable revisado a 
fondo/lnterface RS232 para 
el VIC-20/Juegos/EI fútbol- 
silla en su salón. 


Núm. 7 - 250 Ptas. 

El ordenador virtuoso. Musi- 
Calc. Programa monitor para 
el 64. Lápices ópticos. Am¬ 
pliación de memoria para Vic- 
20 . 


Núm. 10-250 Ptas. 

Koala Pad: La potencia de un 
paquete gráfico. Trucos. El 
FORTH. Software comenta¬ 
do. El LOGO. 


#> f# jKMf F'JP 


FORTH para todos 


!»» 























































Progratl 

aplicacíj 


Núm. 16 - 250 Ptas. 

Análisis de simuladores: vue¬ 
la con tu C-64. Contabilidad 


Núm. 19-250 Ptas. 


El importe lo abonare 

Contra reembolso □ Ad|unto Cheque □ Con mi tarjeta de crédito □ 
American Express u Visa □ Interbank □ Fecha de caducidad _ 


Numero de mi tarjeta 


[XII Tí T I 


DE EJEMPLARES ATRASADOS 

Complete su colección de COMMODORE MAGAZINE 
A continuación le resumimos el contenido de los ejemplares aparecidos hasta ahora. 


m. 14-250 Ptas. 

' :es: cómoentendersecon 
duendes. Pilot: un lengua¬ 
je alto nivel. Guía de Soft- 
r e para C-64. 


commodore 


le 


voz 


fe* pftfalw si 


Sum. 15- 250 Ptas. 

5 ntesis de voz: su ordenador 
*ene la palaba. Pilot: un len- 
;jaje de alto nivel (2. a parte). 
Guía de software para C-64 
2 2 parte). 


ranodori, 


coi 


VnáJww *!$.> Szmulímcfsv*: 

VUELA CON TU C 64 


I Gakmm Chess: un coloso det sjeónez 

Núm. 17 - 250 Ptas. 

Una lección de anatomía: los 
microordenadores por den¬ 
tro. Bruce Lee: lafuriaoriental 
en el C-64. Quick Data Drive. 
Colossus Chess: un coloso 
del ajedrez. _ 


O^LOZlriBJ 


Núm. 20 - 250 Ptas. 

Juegos de Guerra: Combat 
leader, Theatre Europe, Battle 
for Midway. Tratamiento de 
textos Easy Script. Amiga: lo 
último de Commodore. Li¬ 
bros, juegos y aplicaciones. 


Num. 18 - 250 Ptas. 

Practícale: todo el poder de 
una hoja electrónica. Pascal 
(1. a parte). Programas:juegos 
y aplicaciones veraniegos. 
¡Canasta!: dos ases del balon¬ 
cesto para el C-64. 


Núm. 22 - 300 Ptas. 

Programas lightning: gráficos 
profesionales a tu alcance. 
Montaje: un interruptor pro- 
gramableparael C-64. Sprites 
múltiples. Cómo graba los da¬ 
tos el Datassette. 


immodore 


d* sonidos: 


. ^Sprites m 

X » 

Paisajes 

_en tu 

Commodore 


Núm. 21 -250 Ptas. 

Video-Digitizer: visión artifi¬ 
cial para Commodore. Sei- 
kosha GP 700 VC: una impre¬ 
sora a todo color y con capa¬ 
cidades gráficas. Sprites mul¬ 
ticolores. El nuevo C-128. 


Núm. 23 - 300 Ptas. 

Sinfonías en Chip: síntesis de 
sonido. Sprites en movimien¬ 
to. Paisajes fractales en tu 
Commodore. Código máqui¬ 
na. Sight and sound: cuatro 
maestros de la música. Gale¬ 
ría de Software: los mejores 
programas analizadosen pro¬ 
fundidad. 


Corte y envíe este cupón a: COMMODORE MAGAZINE 
Bravo Murillo,377-Tel. 7337969 - 28020-MADRID 


Ruego me envíen los siguientes ejemplares atrasados de COMMODORE MAGAZINE 


para pequeños negocios. Análisis de cuatro impreso- ' 

Cómo acelerar la ejecución. ras. Simulación: pequeños I N0MBRE - 


de gráficos en BASIC. Sub- mundos en su ordenador. | dirección_ 


marino Commander. Pilot: un Pascal (2. a parte). Entombedy 
lenguaje de alto nivel (3. a Par- The Staff of Karnath: aventu- 
te). ras gráficas y mucha acción. 


PROVINCIA 

















































El hombre adoptó el sistema de numeración decimal por el 
simple hecho de estar dotado de 10 dedos en las manos. El 
ordenador se comunica en sistema binario por transmitir con 
mpulsos eléctricos que simulan el O y el 1, y las memorias de 
los ordenadores trabajan en sistema hexadecimal para 
simplificar al hombre la utilización del sistema binario. 

Sistema 

hexadecimal 


^Entre todos los sistemas de nu¬ 
meración, el hexadecimal es el de 
mayor interés para su empleo con 
ordenadores. Por una parte es fá¬ 
cil imaginar lo complicado que re¬ 
sultaría la programación y el uso 
de rutinas en lenguaje máquina si 
hubiera que escribirlas en el sis¬ 
tema binario. Por otro lado pode¬ 
mos observar que con sólo dos 
cifras en hexadecimal se puede 
escribir cualquier número entre 0 
y 255 (casualmente el valor más 
alto que puede tomar un octeto) 
y con 4 cifras se pueden escribir 
todos los números que pueden al¬ 
macenarse en dos octetos (o uno 
en ordenadores de 16 bits). En un 
octeto podemos escribir números 
desde el 0 al 255, por lo que si to¬ 
mamos dos octetos, podemos es¬ 
cribir 255 2 = 65.535 números ade¬ 
más del 0. Quizá lo más práctico 
del sistema hexadecimal es que 
cada una de sus cifras equivale a 
un bloque de 4 cifras en sistema 
binario, como veremos. Así pode¬ 
mos dividir un octeto en dos blo¬ 
ques de 4 cifras y cada bloque 
queda perfectamente identificado 
por una cifra hexadecimal. 

COMO PASAR UN NUMERO 
DEL SISTEMA HEXADECIMAL 
AL DECIMAL 

El sistema de numeración 
hexadecimal utiliza 16 cifras. 


Como nosotros sólo manejamos 
10 cifras (0, 1, 2, 3, 4, 5, 6, 7, 8 y 
9), tendremos que dar nombre a 
las otras 6 cifras necesarias. Así, 
utilizaremos las letras A, B, C, D, 
E y F como nuevas cifras cuyos 
valores en el sistema decimal 
son, respectivamente, 10, 11, 12, 
13, 14 y 15. 

Recordemos que en el sistema 
decimal, el número abcde es 
igual a: 

abcde = a • 10 4 + b • 10 3 + c • 
10 2 + d • 10+ e 

Si escribimos un número cuyas 


cifras son abcde en sistema 
hexadecimal y queremos saber 
cuál es su correspondiente valor 
en el sistema decimal, bastará 
hacer lo mismo que en (2), sólo 
que ahora utilizaremos 16 como 
base en lugar de 10: 

abcde = a ■ 16 4 + b • 16 3 + c • 

16 2 + d ■ 16 + e 

En general, el equivalente en el 
sistema decimal de un número 
hexadecimal de k + 1 cifras es: 

3k 3k-i 3k2 32 3i 3o = 3k ■ 

16 k + a k -i • 16 k 1 + a k -2 • 16 k ' 2 +... + a 2 
• 16 2 + ai • 16 1 + a 0 • 16° 

Vamos, por ejemplo, a pasar el 
número A10BF escrito en el sis¬ 
tema decimal, al correspondiente 
en el decimal (recordemos que 
A = 10, B = 11, C = 12, D = 13, 
E = 14, F = 15): 

A10BF (16 = A • 16 4 + 1 • 16 3 + 0 • 
16 2 +B ■ 16 + F = 10 • 16 4 +1 ■ 

16 3 + 0 • 16 2 + 11 • 16 + 15 = 10 • 
65.536 + 1 • 4.096 + 11 • 16 + 15 = 
659.647,,o 

Con la siguiente rutina se pue¬ 
den pasar números en base 16 al 
sistema decimal: (Ver figura i) 

























COMO PASAR UN NUMERO 
DEL SISTEMA DECIMAL 
AL HEXADECIMAL. 

De forma análoga a como vi¬ 
mos al pasar un número en base 
10 al correspondiente en base 2, 
para pasar un número A del sis¬ 
tema decimal al hexadecimal, 
bastará hacer la división entera 
de A por 16 y conservar el resto. 
A continuación se hace lo mismo 
con el cociente resultante, y así 
sucesivamente hasta que tenga¬ 
mos un resto menor que 16. Veá- 
moslo con un ejemplo: Pasemos 


el número 123456 (decimal) al sis¬ 
tema hexadecimal: 

123456 116 

114 7716 [16_ 

25 131 482 116 

96 36 02 30 116 

JL ¿ 2_ 14 1_ 

a., a 3 &2 di 3 q i 


1 0000 

A $ = 1 ' 0123456789A B C D E F *' 

i. OO10 

IMPIJT " NUMERO HE X A DEC I MAL " ;; H$ 

;{. 0020 

D : “~0 

;| 00.30 

EUR 1 = 1 TÜ LEN (H$) 

1 0040 

I( m ,I,1 ) 

10050 

POR j = 1 TÜ 16 

10060 

C$=M 1 D T“ (A:T , J , 1 ) 

1 0070 

IF BT-CT THEIM 10090 

1 0080 

ME X T J 

;{. 0090 

D=D+ (J -1 ) * 16 T (LEN (H#) I) 

;J. 010 O 

NEXT I 

101 1 O 

P R IN T H $;; 11 E M D E CIM A L E S: 11 '; D 

:l. 0120 

GOTO 10010 


Figura 1 


20000 

A$= " 0123456789ABC DEÍ F " 

20010 

INF’IJT "NUMERO DECIMAL" ; D 

20020 

H$=" " 

20030 

K*=" " 

20040 

D1=D 

20050 

D1 = INT (DI) /1.6 

20060 

B--16* (Dl — INT (DI) ) 

20070 

IF B=INT(B) THEIM 201.10 

20080 

B1=B—INT(B) 

20090 

B=INT(B) 

2010 O 

IF B1 >0.5 TFIEN B-B+l 

20110 

l<:T=K-T+M I D T (AT . B+1,1) 

201 20 

IF DI>—1 THEN 20050 

201 30 

FOR I•=!....EN (¡<T) TO 1 STEP-1 

201 40 

HT-H'T+M I Df- (K:f., I , 1) 

20 150 

NEXT I 

20160 

PRINT D;"EN HEXADECIMAL ES:";HT 

201 70 

GOTO 20010 


Figura 2 



Por tanto: 

123456 0 o = 1 E240 ( i6 

La dirección más alta que ad¬ 
mite BASIC es 65535. En hexa¬ 
decimal: 

65535(io = FFFF (16 

El valor más alto que puede to¬ 
mar un octeto es 255, que en 
base 16 es FF. 

Pensemos en un octeto de 16 
bits y veamos algunas equivalen¬ 
cias: 

1111 • 1111 • 1111 • 1111,, = 65535, 10 = FFFF, S 
0000 - 1111 - 1111 - 1111,= 4095„„ = FFF, 5 
0000 ■ 0000 ■ 1111 ■ 1111. = 255„o= FF , 
0000 ■ 0000 ■ 0000 • 1111. = 15,™ = F„ 

1000 - 0000 - 0000 - 0000,, = 32768,™ = 8000, 
0000 ■ 1000 ■ 0000 ■ 0000,, = 2048„„ = 800 , 
0000 • 0000 ■ 1000 ■ 0000,, = 128„„ = 80, 
0000 • 0000 ■ 0000 ■ 1000, 2 = 8,™ = 8™ 

Observamos que podemos divi¬ 
dir un octeto de 16 bits en 4 blo¬ 
ques de 4 bits. El valor más alto 
de cada bloque es F (15 n0 ). Por 
ejemplo, el número binario (es de¬ 
cir, el estado real del octeto de 16 
bits) correspondiente al hexadeci¬ 
mal ABCD es: 

A (16 = 10(10 = 1010(2 

B (16 = 11(10 = 1011(2 
C (16 = 12(10 =1100(2 

D (16 = 13(10 = 1101(2 
con lo que: 

ABCD(,6 = 1010 • 1011 -1101 • 
1101(2 

La siguiente rutina sirve para 
pasar un número decimal a hexa¬ 
decimal: (Ver figura 2) 


46 • COMMODORE MAGAZINE 








































Sistema binario 


El ordenador maneja la infor¬ 
mación mediante pequeñas uni¬ 
dades de memoria que llamamos 
OCTETOS. Por ejemplo, el orde¬ 
nador almacena la palabra CUEN¬ 
TA en seis de dichas unidades, 
de forma que en cada octeto se 
almacena una letra. En realidad, 
lo que se almacena en los octe¬ 
tos no son las letras C, U, E, N, 
T y A, sino números que sirven 
para identificar dichas letras. Así, 
en lugar de la letra C, el ordena¬ 
dor almacena el número 67, en 
vez de la letra U, el número 85, y 
así sucesivamente. 

Cada octeto está formado por 
ocho unidades aún más peque¬ 
ñas (en los ordenadores domésti¬ 
cos) de memoria llamadas BITS. 
Cada bit puede tener dos únicos 
valores: cero o uno. Esto equiva¬ 
le a suponer que cada octeto está 
compuesto de ocho bombillas. Si 
por una bombilla pasa corriente 
(está encendida), le corresponde 
un uno, y si no pasa corriente 
(está apagada), le corresponde un 
cero. 

Así el ordenador sólo puede 
manejar la información compro¬ 


bando si los bits correspondien¬ 
tes están a cero o a uno. 

La operación más elemental 
que puede hacer el ordenador es 
la suma de dos octetos. Si en un 
octeto está el número 3, y en otro 
el número 4, ambos números es¬ 
tarán escritos mediante ceros y 
unos, y su suma (7) será otro nú¬ 
mero formado por ceros y unos. 

Así observamos que el ordena¬ 
dor no puede, como nosotros, tra¬ 
bajar en base 10 (en esta base te¬ 
nemos diez dígitos: 0, 1, 2, 3, 4, 5, 
6, 7, 8 y 9), sino que debe traba¬ 
jar en una base de sólo dos dígi¬ 
tos (0 y 1), es decir, en base 2. 
Esta es la razón por la que es tan 
interesante el estudio del sistema 
de numeración en base 2. Por 
ejemplo, el ordenador divide la 
pantalla del televisor o monitor en 
PIXELS. Un pixel corresponde a 
un punto y es la figura más pe¬ 
queña que puede dibujar en la 
pantalla. A cada pixel le corres¬ 
ponde un bit de un octeto parti¬ 
cular, de forma que al escribir o 
dibujar en la pantalla, el ordena¬ 
dor pondrá un punto (del color de 
la tinta) si el bit correspondiente 
está a 1 y no pondrá nada si el 
bit está a 0. 


COMO PASAR UN NUMERO 
DEL SISTEMA BINARIO 
AL DECIMAL. 

Podemos leer el número 74.321 
(en base 10) de la siguiente forma: 

74.321 es un número con una 
unidad, dos decenas, tres cente¬ 
nas, cuatro unidades de millar y 
siete decenas de millar. Así, otra 
forma de escribir este número es 
la siguiente: 

74.321 = 7 • 10.000 + 4 • 1.000 + 
3-100 + 2-10 + 1 = 7 ■ 10 4 + 4 ■ 
10 3 + 3 • 10 2 + 2 • 10’ + 1 • 10° 

Naturalmente es más cómodo 
escribir 74.321 y decir setenta y 
cuatro mil trescientos veintiuno. 

Para pasar un número en base 
2 al correspondiente número en 
base 10, basta por tanto l.^cer lo 
mismo que hemos hecho con 
74.321, sólo que ahora la base es 
2 en lugar de 10 y los únicos dí¬ 
gitos disponibles son 0 y 1. Así, 
para escribir el número a k a k ., a k . 2 
... a 2 a, a 0 (2 en base 2 (donde a k , 
a k .,,... ai, a 0 pueden ser 0 ó 1) en 
el sistema de base 10, tendremos 
que hacer: 

a k a k .i a k . 2 ... a 2 ai ao( 2 = a k • 2 k + a k .i 
• 2 k ' 1 + a k2 • 2 k2 + ... + a 2 • 2 2 + a, ■ 
2 1 + a 0 • 2 o 
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Si, por ejemplo, queremos ha¬ 
llar el número en base 10 corres¬ 
pondiente a 1001110101 ( 2 , tendre¬ 
mos que hacer: 

1001110101,2 = 1 • 2 9 + 0 • 2 ® + 0 • 
2 7 + 1 • 2 6 + 1 • 2 5 + 1 ■ 2 4 + 0 • 2 3 + 1 
• 2 2 + 0 - 2 1 +1 - 2° = 1 - 512 + 0 
■ 256 + 0 ■ 128 + 1 • 64 + 1 ■ 32 + 1 

• 16 + 0 • 8 + 1 ■ 4 + 0 • 2 + 1 = 
629,10 

Así vemos que el número más 
alto que puede tomar un octeto 
(sus 8 bits a 1) es: 

11111111,2 = 1 • 2 7 +1 • 2 6 +1 

• 2 5 +1 • 2 4 +1 • 2 3 +1 • 2 2 +1 
' 2’ + 1 • 2° = 128 + 64 + 32 + 16 + 
8 + 4 + 2 +1 = 255,io 

Por tanto, podemos escribir 256 


números diferentes en un octero 
(de 0 a 255), lo que equivale a de¬ 
cir que podemos identificar 256 
caracteres distintos (ésta es la ra¬ 
zón por la que el Código ASCII 
tiene 256 caracteres exactamen¬ 
te). 

La siguiente rutina sirve para 
convertir un número dado en sis¬ 
tema binario al correspondiente 
número en el sistema decimal. 

(Ver figura 1) 


COMO PASAR UN NUMERO 
DEL SISTEMA DECIMAL 
AL BINARIO. 

Supongamos que queremos es¬ 
cribir un número A n o en el siste¬ 
ma binario. Deberemos escribir el 
número A en la forma: 


;|. OOOO 

INPUT "NUMERO EN BASE 

2 " : Bí 

1OO10 

D=0 


10020 

POR 1=1 Tü LEW(B#) 


;t. 0030 

A$=M I L)-4> (B# , I H 1 ) 


10040 

A=VAL (A#) 


10050 

D=D+A*2t(LEN( B$ >-I) 


;j. 0060 

NEXT I 


1 0070 

P RIN T B $'' E N D E CIM A L 

ES:";D 

1 0080 

GOTO IOOOO 



Figura 1 


1 OOOO 

INPUT "NUMERO EN BASE 10";D 

1 0010 

D1--D 

10020 

m ="" 

10030 

AT=STRT (D1 --1NT (DI /2) *2) 

1 0040 

NT-NT+MIDT (At- ,2,1) 

1 0050 

IF D1 =0 OR 01 = 1 TREN 10080 

1 0060 

D1=1NT(DI/2) 

1 0070 

SOTO 10(1)30 

1 0080 

B$=" " 

;!. 0090 

FOR 1=1 TO LEN(NT) 

10100 

B*=B$+MIDT( m ,LEN(NT)—1+1,1) 

1 01 10 

NEXT I 

10120 

F'RINT D; "EN BINARIO ES: " ; BT 

10130 

GOTO 10000 


Figura 2 



A,io — 3k ■ 2 k + 3k-i • 2 k 1 + ... + 82 
• 2 2 + a, • 2 1 + a 0 • 20 

y así, el número A no en base 2 se 
escribirá: 

3k Sk- a K - 2 ... a 2 3i ao 

donde ao, ai, a 2 ... 3k2, 3k 1 , 3k pue¬ 
den ser ceros o unos. 

Si hacemos la división entera 
del número A por 2, resultará que 
A será igual al cociente (A 0 ) por el 
divisor (2) más el resto (r 0 ): 

A = A 0 • 2 + r 0 
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Dividamos A 0 entre 2 de igual 
manera: 

Ao = Ai ■ 2 + r, 

y haremos lo mismo con Ai, A 2 , 
hasta que lleguemos a un núme¬ 
ro A k que vale 0 ó 1. 

Sustituyendo los valores de A 0 , 
Ai, A 2l ... en A, tenemos: 

A = Ao • 2 + r 0 = (Ai • 2 + r,) • 
2 + To = Ai • 2 2 + Ti ■ 2 + ro = (A 2 
• 2 + r 2 ) • 2 2 + r, • 2 + r 0 = A 2 • 
2 3 + r 2 • 2 2 + ri • 2 + r 0 = ... A k • 
2 k + r k ., • 2 k ' 1 + r k - 2 • 2 k2 + ... +r 2 • 
2 2 + ri • 2 + r 0 


Si comparamos esta igualdad 
con (1), resulta evidente que: 

a k = Ak 

a k -i = r k .i 


a 2 = r 2 
a, = n 

3o = To 

Por tanto, para pasar un núme¬ 
ro en base 10 al correspondiente 
en base 2 basta realizar la divi¬ 
sión entera por 2 con dicho nú¬ 



mero. El resto será a 0 . Luego se 
vuelve a hacer la división con el 
cociente resultante. El resto de 
esta segunda división será ai. Se 
repite este proceso hasta que el 
cociente sea igual a 0 ó a 1, que 
será a k . 

Veamos un ejemplo: vamos a 
pasar el número 74 ( i 0 al corres¬ 
pondiente número en base 2: 


74 [2_ 

14 37 \2_ 

£ 17 18 \2 _ 

10 9 12 

14 12 

0 2 12 
0 1 


ao ái a 2 a< a 4 as a,-; 

Por tanto: 74 ( io = 1001010 (2 

Comprobemos ahora que, efec¬ 
tivamente, el número en base 2 
que hemos hallado es correcto: 

1001010, 2 = 1 • 2 6 + 0 • 2 5 + 0 • 
2 4 + 1 • 2 3 + 0 • 2 2 + 1 • 2 1 + 0 • 2° 
= 1 ■ 64 + 0 • 32 + 0 • 16 + 1 -8 + 0 
•4 + 2 + 0 = 64 + 8 + 2 = 74„o 

He aquí una rutina para pasar 
un número del sistema decimal al 
binario: (Ver figura 2) 

Juan A. Feberero 
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Vendo los siguientes programas para 
C-64: Azimuth, Logo, Pascal, Pilot, Forth, 
Victree, Blitz Comp. y una larga lista con 
más de 300 títulos tanto en juegos como 
utilidades y lenguajes, todos ellos a pre¬ 
cios asequibles y a convenir. Interesados 
llamar del a 3 al telf.: (91) 718 36 17. Pre¬ 
guntar por Francisco Javier. 

• 

C 

Vendo ordenador C-64 con cinco meses 
de uso, con todos sus accesorios. Rega¬ 
lo cassette C2N, 1 joystick (Inbestick) y 
más de 70 juegos comerciales en código 
máquina. Todo por 45.000 pías. Aparte 
vendo juegos y utilidades como Kawasa- 
ki Ritmo Roker, Simon’s Basic /-//, etc. 
Mandaré mi lista. Dirigirse a: Julio Bel- 
monte Torne!. Avd. de la Fama, 17. Edifi¬ 
cio Rodas. 30006 Murcia. 


VeYido ordenador Commodore VIC-20; 
con cassette ANITECH VK-160, en perfec¬ 
to estado, un cursor de introducción al 
BASIC, el manual del usuario y un cartu¬ 
cho con un juego. Además las revistas 
Commodore MAGAZINE, desde el núme¬ 
ro 4 hasta el 13. Todo esto por 22.000 ptas. 
Interesados llamar al teléfono: (93) 333 35 
76 y preguntar por Néstor. Barcelona. 

• 

C 

Cambio programas para Commodore 
64, trucos , utilidades, etc. Poseo una bue¬ 
na cantidad de programas para el inter¬ 
cambio. Dirigirse a: José Ute Marti Albert. 
C/. Carrero Blanco, 1. Belgida (Valencia). 

• 

C 


c 

Vendo Vic-20 con un cartucho de aje¬ 
drez, varios programas, un curso de Ba¬ 
sic del VIC, una guía del ordenador, un li¬ 
bro de programas y varias revistas. Todo 
por 15.000 ptas. Ponerse en contacto con: 
José Pedro Fernández Fernández. C/. Re¬ 
latores, 3-3.°D. 47011 Valladolid. Telf.: (983) 
26 61 14. 

• 

O 

Club de Commodore 64, B.A.S.A., Ínter- 
cambia todo tipo de programas, sobre 
todo en diskette. Para contactar enviar lis¬ 
ta a: Rafael Andrés, C/. Anselm Clavé, 53. 
Olesa de Montserrat (Barna). O llamar a! 
(93) 778 06 77. 

• 

C 

Vendo C-64 con 1541 Flash y Reset, 
más unidad de discos e impresora Seikos- 
ha GP-550A. Cartuchos Simon’s Basic y 
Hesmon. Regalo más de 100.000 ptas. en 
programas (tengo más de 1.000 títulos de 
todos los tipos). Todo en perfecto estado 
por 150.000 ptas. Llamar a David al telf.: 
(91) 734 11 03. Madrid. 

• 

C 

Vendo por cambio de ordenador: 
CBM-64, unidad de disco VC-1541 de Com¬ 
modore y los siguientes programas: Su- 
perbase/64, Cale Result, Easy Script, 
Logo, Pilot, Simon’s Basic, Master 64, 
Peet Speed, Oxford Pascal, Koala Painter 
y 300 juegos y utilidades más. Todo por 
200.000 ptas. (valorado en más de 300.000 
ptas.). También lo vendo por separado. In¬ 
teresados preguntar por Toni en el telf.: 28 
43 37, de 10 h. a 13 h. Palma de Mallorca. 


Vendo VIC-20 + Datassette + prime¬ 
ra parte curso de Basic + Cartucho Vic 
Avenger + Juegos + revistas + cables 
+ manual y cintas vírgenes todo en buen 
estado. Los interesados pueden llamar al 
telf.: (973) 38 30 30 ó escribir a: Toni Fa¬ 
rras Dique. C/. Ctra. de Lérida s/n. Orga- 
ña (Lérida). 

• 

c 

Cambio programas para Commodore 64 
a chicos de toda España. Tengo títulos 
como: Jet set Willy, Zaxxon, Tales of the 
Arabian Night, Raid over Moscow, Ghost- 
buster, Bruce Lee, Fútbol, Baloncesto, De¬ 
caí hIon, Summer Games I y II, Solo Flight 
y muchos títulos muy buenos de juegos y 
utilidades. Prometo contestar a todos aun¬ 
que no tengan muchos programas. Escri¬ 
bid a: Javier Bernal Mal i líos. C/. Echega- 
ray, 1. Cantalejo (Segovia). O preferible¬ 
mente llamar al teléfono (911) 52 04 04. 

• 

C 


Tengo un ordenador Commodore 64 
con cassette y me gustaría intercambiar 
juegos y utilidades. Tengo más de 300 tí¬ 
tulos y la mayoría de ellos son muy bue¬ 
nos. Dirigirse a: Francisco Marcos Ruiz 
Franquin. Apartado de Correos 108. La 
Cuesta (Tenerife). Contestaré a todas las 
cartas recibidas. 

• 

C 

Si te gustan los juegos y utilidades para 
tu CBM-64, mándame rápidamente una 
carta con tu dirección, teléfono, edad, y 
una lista tuya. Mi dirección es: Juan Ma¬ 
nuel. Apto. Correos n.° 71 de Torredem- 
barra (Tarragona). 


Atención!!! Si tienes ganas de cambiar 
programas para CBM-64, escríbeme. Ten¬ 
go muchos y muy buenos. Si tienes po¬ 
cos, o muy pocos, escribe también pues 
todos hemos empezado con pocos. Mi di¬ 
rección es: Juan Manuel. C/. Pilar, 10. Apto. 
Correos 71. Torredembarra (Tarragona). 

• 

C 

Vendo Commodore 64 + unidad de Dis¬ 
cos + Cartucho de Discos sin estrenar + 
Cartucho Simon’s Basic + juegos en dis¬ 
co (Saucer Attack) -h programas de utili¬ 
dades (Doodle, Hes Mon 64) -h manuales 
correspondientes. Todo ello en perfecto 
estado (1 año), por 80.000 ptas. (a conve¬ 
nir). Interesados llamar a: Enrique Maler, 
telf.: (93) 217 87 29. 

m 

c 

Deseo intercambiar programas para 
CBM-64 en cassette. Interesados dirigir¬ 
se a: Sergio Martínez. C/. Condesa de Par¬ 
do Bazán, 4, 4.°-2. a . 08027 Barcelona. Telf.: 
(93) 340 36 85. 

• 

C 

INTERSOFT. Primer Club de intercam¬ 
bio de Software para todos los usuarios 
del Commodore 64. Intercambio de pro¬ 
gramas, experiencias, trucos e ideas. For¬ 
ma parte de un gran Club Commodore 64. 
Solicita información a: Manuel Arroyo. C/. 
Maresma, 266, 2.° -2. a . 08020 Barcelona. 

• 

C 

Desearía cambiar toda clase de progra¬ 
mas para el C-64 en cassette o disco. Di¬ 
rigirse a: Manuel González Lombardía. C/. 
Gabriel y Galán, 4, 2.°-A. Peñaranda de 
Brocamonte (Salamanca). 

• 

C 

Desearía intercambiar todo tipo de pro¬ 
gramas, en cinta o disco, para CBM-64. Di¬ 
rigirse a: Carlos Veciana Nogués. C/. Ma¬ 
yor, 17. Mora la Nova (Tarragona). Telf.: 
(977) 40 03 68 (fines de semana). 

• 

C 

Desearía intercambiar programas de to¬ 
do tipo en cinta para el C-64. Enviadme 
vuestra lista y yo os enviaré la mía. Pro¬ 
meto contestar. Interesados escribir a: Jo- 
sep M. a Bosch Vaillo. C/. Joan Maragall. 
n.° 18. Esparreguera (Barcelona). 
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M aprendemos nuevas formas 
de carga, grabación y manejo de 
ficheros ahorraremos tiempo; 
tiempo que podemos emplear en 
programar —o jugar— con las 
instrucciones que vienen imple- 
mentadas en el nuevo modelo. La 
mayoría de las nuevas instruccio¬ 
nes para el manejo de la unidad 


Comandos 

en el 


C-128 
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El BASIC 7.0 del Commodore 128 supone una mejora 
sustancial sobre las versiones Basic de modelos anteriores. 

La incorporación de nuevas instrucciones permite una 
definición más fácil de sprites, efectos sonoros y gráficos en 
alta resolución sin tener que recurrir a sentencias POKE. En 
el presente artículo nos centraremos en la utilización de 
nuevas instrucciones para el manejo de la Unidad de Disco. 


de disco funcionan perfectamen¬ 
te tanto en la unidad 1541 como 
en la nueva 1571. Tanto si posees 
una como la otra te indicaremos 
cómo utilizar los nuevos coman¬ 
dos del Commodore 128. 


DOCE FORMAS DE CARGAR 

Si deseamos cargar un progra¬ 
ma BASIC tenemos cuatro posi¬ 
bilidades: 

1. LOAD «Nombre del fiche¬ 
ro», 8 

2. DLOAD «Nombre del fiche¬ 
ro» 

3. RUN «Nombre del fichero» 

4. Pulsar simultáneamente 
SHIFT-RUN/STOP 

Para programar en código má¬ 
quina o ficheros binarios: 

5. LOAD «Nombre del fiche¬ 
ro», 8, 1 

6. BLOAD «Nombre del fiche¬ 
ro» 


7. BLOAD «Nombre del fiche¬ 
ro», B banco, P dirección 

8. BOOT «Nombre del fichero» 

Desde el monitor de código má¬ 
quina: 

9. L «Nombre del fichero», 8 

10. L «Nombre del fichero», 8, 

dirección 

Finalmente, dos formas de 
arrancar con programas autoeje- 
cutables (del tipo CP/M, por ejem¬ 
plo): 


11. BOOT 

12. Encender o hacer un reset 
al ordenador con un disco 
de autocarga en la corres¬ 
pondiente unidad. 


CARGA DE PROGRAMAS BASIC 

Al igual que ocurre en el BASIC 
2.0 el número de periférico por de¬ 
fecto con el comando LOAD es el 
1 (Datassette), por ello cuando 
queramos cargar un programa 
desde la unidad de disco hemos 
de incluir el número de periférico 
correspondiente. El nombre del fi¬ 
chero es un nombre de programa 
que puede contener hasta dieci¬ 
séis caracteres entrecomillados. 
Pero no siempre hemos de re¬ 
currir a LOAD cuando podemos 
disponer de DLOAD y RUN. 

DLOAD es un nuevo coman¬ 
do, la D es la inicial de «Disco» y 
asume, por defecto, como perifé¬ 
rico el 8 (unidad de disco) y como 


unidad el 0. En el caso de dispo¬ 
ner de una unidad de disco doble 
hemos de añadir una coma y DO 
o DI para especificar la unidad 
desde la cual queremos efectuar 
la carga. Desgraciadamente, al 
menos mientras escribimos esto, 
Commodore no se ha decidido a 
comercializar la doble unidad de 
disco 1572. De todas formas po¬ 
demos añadir varias unidades a 
nuestro equipo. Para acceder a 
una segunda o tercera unidad, 


DLOAD ha de venir seguido de 
una coma y U9, U10, etc. 

El siguiente comando de la lis¬ 
ta, RUN, presenta algunos cam¬ 
bios. Todavía se encarga de eje¬ 
cutar un programa, pero si detrás 
del comando RUN figura un nom¬ 
bre del fichero, éste se carga des¬ 
de la unidad de disco y se ejecu¬ 
ta directamente. Al igual que 
DLOAD y la mayoría de los de¬ 
más comandos de disco, pode¬ 
mos especificar el número de la 
unidad con D y el número del pe¬ 
riférico con una U. El formato 
quedaría: por tanto, RUN «Nom¬ 
bre del programa», D número de 
la unidad de disco, U número de 
periférico. RUN también lo pode¬ 
mos emplear en el interior de un 
programa. 

En el modo 64 sabemos que 
pulsando SHIFT-RUN/STOP carga 
y ejecuta el primer programa que 
se encuentre en la cinta. Pero en 
el modo 128 esta combinación 
carga y ejecuta el primer progra¬ 
ma del disco. 

CARGA DE FICHEROS 
BINARIOS 

Por fichero binario suele enten¬ 
derse un programa en código má¬ 
quina, aunque no exclusivamen¬ 
te. También puede tratarse de: re¬ 
definición de caracteres, defini¬ 
ción de las teclas de función, di¬ 
bujos en alta resolución, por men¬ 
cionar algunos ejemplos. Es de¬ 
cir, un fichero binario es un pro¬ 
grama, o datos, que ha sido gra¬ 
bado o bien desde el monitor en 
código máquina o con un coman¬ 
do BSAVE. 

El comando BLOAD carga el fi¬ 
chero especificado por la direc¬ 
ción de inicio. Si estás acostum¬ 
brado al VIC o al C-64, reconoce¬ 
rás el formato LOAD «nombre del 
fichero», 8,1. BLOAD cumple el 
mismo cometido, pero no hemos 
de incluir ni el 8 ni el 1. BLOAD 
también puede desplazar un pro¬ 
grama a otra posición de memo¬ 
ria si le añadimos una B (para el 
número de banco) y una P (de di- 


e disco 
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rección). Con el 0128 sin ampliar, 
las dos únicas alternativas para 
el banco son O y 1. Los progra¬ 
mas BASIC se almacenan en el 
banco O, las variables en el ban¬ 
co 1. La dirección de la memoria 
puede ser cualquiera comprendi¬ 
da entre 0-65535. 

BOOT, «Nombre del fichero», 
carga un fichero binario y ejecu¬ 
ta un SYS (llamada y ejecución de 
una subrutina en código máqui¬ 
na) en la dirección de inicio pre¬ 
definida. Es el equivalente, en len¬ 
guaje máquina, al RUN «progra¬ 
ma» del BASIC. 

También es factible cargar un 
programa con el monitor de códi¬ 
go máquina y el comando L. Tras 
el nombre del fichero hemos de 
poner una coma y un 8 (del peri¬ 
férico, unidad de disco). Si desea¬ 
mos posicionar el programa en 
otra dirección de memoria, he¬ 
mos de incluir la nueva dirección. 


SECTORES DE AUTOCARGA 

Al poner en marcha el C-128, el 
ordenador comprueba si la uni¬ 
dad de disco se encuentra apaga¬ 
da o encendida, en este último 
caso intenta la lectura de la pis¬ 
ta 1, sector O (los 256 bytes de 
este sector de carga se leen 
entre las posiciones $ OBOO - 
$ OBFF). Si encuentra las letras 
«CBM» al inicio de este sector del 
disco, comienza la autocarga. Po¬ 
demos comprobarlo de la siguien¬ 
te manera: 

1. Enciende el TV/monitor y la 
unidad de disco, pero no 

el 128. 

2. Inserta el disco CP/M que 
acompaña al C-128 en la uni¬ 
dad de disco 1541 o en 

la 1571. 

3. Pon en marcha el ordenador. 

El disco de CP/M tiene un sec¬ 
tor de autocarga; está concebido 
para cargar y ejecutar automáti¬ 
camente el CP/M. Los sectores de 
autocarga no quedan limitados al 
CP/M. Es posible crear discos que 


automáticamente carguen un pro¬ 
grama en BASIC o en código má¬ 
quina. Para crear este tipo de dis¬ 
co aquellos que dispongáis de la 
nueva unidad 1571 podéis cargar 
el programa AUTOBOOT MAKER 
que viene con la citada unidad. A 
continuación los tres primeros 
bytes de la pista 1, sector O 
(correspondientes a los caracte¬ 
res C, B y M), se encuentra el byte 
menor de la dirección de carga, el 
byte más alto, el número de ban¬ 
co para cargar y el número de 
sectores secuenciales del disco 
que han de cargarse. Estos 4 
bytes no son importantes cuando 
la autocarga se refiere a progra¬ 
mas BASIC, por eso habitualmen¬ 
te suelen ser ceros. Al comienzo 
del octavo byte escribiremos el 
nombre del disco (para el mensa¬ 
je de carga) y finalizaremos con 
un cero. Lo siguiente que hemos 
de poner es el nombre del progra¬ 
ma que queramos cargar, igual¬ 
mente acabado en cero. 


UNIR PROGRAMAS 

Los ordenadores Commodore 
suelen presentar algunas dificul¬ 
tades en el proceso de carga y 
ejecución de un programa en el 
interior de otro, es decir, proble¬ 
mas al encadenar o unir progra¬ 
mas. Las dificultades partían de 
la forma de almacenamiento de 
las variables en memoria: el co¬ 
mienzo del almacenamiento de 
las variables era inmediato al fi¬ 
nal de los programas en BASIC. 

Unir programas es sencillo en 
el C-128. Puesto que el programa 
se mantiene separado de las va¬ 
riables no necesitamos preocu¬ 
parnos por la longitud de los mis¬ 
mos. Para cargar y ejecutar otro 
programa sigue estas normas: 

1. Si quieres conservar las va¬ 
riables del primer programa 
utiliza DLOAD. El segundo 
programa se carga y ejecuta 
y las variables se mantienen. 

2. Si deseas limpiar las varia¬ 
bles utiliza RUN, «nombre 



del programa» donde éste 
sea el nombre del segundo 
programa. 

3. Para cargar un fichero bina¬ 
rio utiliza, o bien BLOAD, 
«nombre del fichero», o 
BOOT, «nombre del fichero». 


DE FORMA RAPIDA 

Existe una forma rápida para 
cargar (DLOAD) o ejecutar (RUN) 
un programa que haya sido gra¬ 
bado de una manera peculiar. In¬ 
cluye esta línea al principio del 
programa con el que estés tra¬ 
bajando: 

1 REM DSAVE «01 Nombre del 
programa SHIFT - Barra espada¬ 
dora : Esto último significa que 
mientras mantienes pulsada la te- 
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cía SHIFT pulses la barra espa¬ 
dadora. Juega con la longitud y 
colocación de la línea de tal for¬ 
ma que pulsando TAB una vez si¬ 
túes el cursor frente a DSAVE y 
pulsando dos veces coloques el 
cursor frente al 1 anterior al nom¬ 
bre del programa. Cuando desees 
una grabación perfecta de un pro¬ 
grama que no esté completo, 
LIST 1 y TAB dos veces. Cambia 
el número 01 a 02 y pulsa RE- 
TURN. Ahora sube el cursor al co¬ 
mienzo de la línea y pulsa TAB 
una vez. Pulsa la tecla ESC (próxi¬ 
ma a TAB) y la tecla P. Esto borra 
todo aquello que se encuentre en¬ 
tre el cursor y el comienzo de la 
nueva línea. Pulsa RETURN, tu 
programa quedará grabado en 
disco con el nuevo número. Más 
tarde, cuando vuelvas a trabajar 
con el programa pulsa F3 para ver 
el directorio (si va demasiado rá¬ 
pido, la tecla COMMODORE lo ra¬ 
lentiza; la tecla NO SCROLL lo 
detiene momentánemente). Cuan¬ 


do lo hayas visto pulsa STOP. Si¬ 
túa el cursor en el nombre del 
programa y teclea DLOAD o RUN. 
Mejor aún, pulsa F2 (DLOAD) o F6 
(RUN). El SHIFT-Barra espadado¬ 
ra de la línea uno coloca unas co¬ 
millas entre el nombre del progra¬ 
ma y los dos puntos. Sin los dos 
puntos, DLOAD o RUN interpreta¬ 
rían NOM como parte del coman¬ 
do. De la forma aquí descrita la 
grabación y recuperación de un 
programa con el que estés traba¬ 
jando es fácil, cómoda y rápida. 


GRABANDO 

Algunas formas de grabar pro¬ 
gramas son: 

1. SAVE «Nombre del fiche¬ 
ro», 8. 

2. DSAVE «Nombre del fiche¬ 
ro». 

3. BSAVE «Nombre del fiche¬ 
ro», B banco, P inicio TO P 
final. 

4. Desde el monitor de código 
máquina: S «Nombre del - 
fichero», 8, comienzo, fi¬ 
nal + 1. 

Los dos primeros, SAVE y DSA¬ 
VE, son los procedimientos habi¬ 
tuales para grabar en BASIC. La 
utilización de BSAVE y el mane¬ 
jo del monitor son algo más inte¬ 
resantes. Ambas nos permiten 
grabar un fichero binario desde 
las direcciones de memoria que 
especifiquemos. Hacer notar que 
cuando se trabaja con el monitor 
en código máquina hemos de 
añadir un 1 a la dirección final. 
Puede parecer que estas dos úl¬ 
timas formas de grabación son 
más útiles con programas en có¬ 
digo máquina. Son muy útiles, 
por supuesto, pero existen algu¬ 
nas áreas de memoria que pode¬ 
mos grabar (BSAVE) para utilizar¬ 
las en un programa BASIC: 

$ 0E00 • $ OFFFDefinición de 
sprites. 

$ 1000 - $ 10FF Definición de 
las teclas de 
función. 


$ 1C00 - $ 3FFFPantalla en alta 
resolución. 

Las direcciones están en hexa- 
decimal. Para transformarlas en 
valores decimales podemos utili¬ 
zar la función DEC (Por ejemplo, 
PRINT DEC («0E00»). Si has crea¬ 
do algunos sprites para un juego 
con SPRDEF, puedes grabarlos 
(BSAVE) en un disco. En el juego 
tienes entonces que cargarlo 
(BLOAD) de nuevo en memoria. 
Esto supone ganar velocidad 
frente al uso de sentencias 
POKE. 

Antes mencionábamos las di¬ 
recciones de las teclas definibles. 
Las teclas que podemos redefinir 
son 10. Son las ocho teclas de 
función, que podemos definir me¬ 
diante el comando KEY (las te¬ 
clas van desde F1 a F8), pero 
también SHIFT-RUN/STO y 
HELP. Si acudimos al monitor en 
código de máquina y comproba¬ 
mos la dirección $1000 - $10FF, 
podemos ver la definición de las 
10 teclas. Los primeros 10 bytes 
son la longitud de cada tecla de 
función. El resto son los caracte¬ 
res actuales que aparecen al pul¬ 
sar alguna de ellas. Después de 
redefinir las teclas, podemos 
guardar los nuevos valores con 
BSAVE. Para recuperar las teclas 
definidas hemos de utilizar 
BLOAD. 


MANEJO DE FICHEROS 
SECU ENCI ALES 

DOPEN y DOLOSE son dos de 
las nuevas formas de trabajar con 
un fichero secuencial. No hay 
mucho que explicar de ellos; si ya 
has trabajado con este tipo de fi¬ 
cheros Ig entenderás sin ninguna 
dificultad.' La sintaxis de la ins¬ 
trucción quedaría así: 

OPEN 3, 8, 4, «Nombre del fiche¬ 
ro, S, W». 

DOPEN # 3, «Nombre del fiche 
ro»,W. 

Como podemos comprobar en 
ambos ejemplos, DOPEN no pre- 
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cisa tanta información como 
OPEN. OPEN es un comando de 
propósito general, permite ai or¬ 
denador el acceso a ficheros en 
periféricos como el datassette, la 
unidad de disco, una impresora, 
etc. Es decir, abrimos un canal de 
comunicación que une cualquier 
unidad periférica con la unidad 
central del ordenador. DOPEN 
abre un fichero, en disco única¬ 
mente, para operaciones de lec¬ 
tura/escritura. Es por ello que 
OPEN precisa el número de peri¬ 
férico y el canal, mientras que 
DOPEN no. La S tras el nombre 
del programa indica que se va a 
abrir un fichero secuencial. He¬ 
mos de hacer notar también que 
en el segundo ejemplo la W (de 
escritura, write) ha de situarse 
fuera de las comillas. 

APPEND es una variante de 
DOPEN. Abre un fichero ya exis¬ 
tente para una operación de es¬ 
critura. Cualquier información es¬ 
crita se añade al final de ese fi¬ 
chero lógico. 

FICHEROS RELATIVOS 
MAS FACILES 

Ser capaces de acceder a una 
determinada información casi 
aleatoriamente supone un nota¬ 
ble ahorro de tiempo. Con los fi¬ 
cheros secuenciales sucede, a 
veces, que hemos de leer el con¬ 
tenido de 50 fichas para acceder 
a la 51. Un fichero relativo nos 
permite acceder a la información 
que precisamos casi instantánea¬ 
mente. 

En el BASIC 2.0 crear y mante¬ 
ner un fichero relativo requiere 
mandar un determinado valor uti¬ 
lizando la función CHR$. Si has 
manejado ficheros relativos en el 


modo 64, sabrás de su cierta 
complejidad. Pero no así en el 
modo 128. En apenas unas cuan¬ 
tas líneas puedes abrir y escribir 
en un fichero relativo. Un ejemplo, 
supongamos que deseas 100 fi¬ 
chas con una longitud de 20 ca¬ 
racteres por ficha. Tu programa 
para crear el fichero vendría a ser 
algo así: 

10 DOPEN # 3, «Programa XYZ», 
L20. 20 RECORD#3,100. 

30 PRINT#3, «Ultima ficha». 

40 RECORD#3,100. 

50 CLOSE 3. 

Y eso es todo. Cuando a 
DOPEN le sigue una L y un 
número, abre un fichero rela¬ 
tivo. La longitud de cada ficha 
viene determinada por L20. 

Las fichas pueden tener 
una longitud entre 1 y 254 
bytes. Puesto que la longitud 
de la ficha se almacena en el 
directorio, sólo se precisa uti¬ 
lizar el parámetro L al crear el 
primer fichero. 

RECORD coloca el puntero 
en la ficha deseada. Esto es, 
coloca un puntero para selec¬ 
cionar cualquier byte de cual¬ 
quier ficha en un fichero rela¬ 
tivo. El número de ficha pue¬ 
de oscilar entre 0 y 65535, de¬ 
pendiendo de la longitud de la 
misma. Podemos además 


añadir un tercer número si 
queremos comenzar la lectura 
o la escritura en una parte de¬ 
terminada de la ficha. Si omi¬ 
timos este número, comenza¬ 
remos por el primer byte de la 
ficha. 

En la línea 30 queremos es¬ 
cribir en la ficha 100. La escri¬ 
tura en una ficha que no exis¬ 
te previamente, obliga a la 
unidad de disco a crear esa fi¬ 
cha y todas las anteriores. La 
línea 40 posiciona el puntero 
de nuevo para evitar algunos 
errores, y cerramos el fichero 
3. Una vez creado el fichero, 
podemos acceder fácilmente 
a las fichas con DOPEN y RE¬ 
CORD#. Podemos efectuar las 
correspondientes operaciones 
de escritura o lectura con 
PRINT#, GET# o INPUT#. 


UTILIDADES 

Tenemos a nuestra disposi¬ 
ción nuevos comandos que 
nos facilitan la programación. 
La tecla F3 está definida para 
imprimir DIRECTORY. Me¬ 
diante la pulsación de una 
única tecla podemos ver lo 
que se encuentra en el disco. 

Dos variables reservadas 
muy utilizadas son DS (abre- 
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viatura de DISK STATUS, es¬ 
tado del disco) y DS$. La pri¬ 
mera devuelve el número de 
error del disco, y la segunda, 
imprime el correspondiente 
mensaje de error. Si la luz roja 
de la unidad 1541 (la verde en 
el caso de la nueva 1571) se 
vuelve intermitente, escribe 
PRINT DS$ y podrás compro¬ 
bar qué es lo que falla. Con¬ 
sulta el manual de tu unidad 
para el listado completo de 
los mensajes de error. 


tras una operación de borrado 
(SCRATCH). El mensaje será 
FILES SCRATCHED (ficheros 
anulados), seguido de una 
coma y del número de fiche¬ 
ros que han sido borrados. 
Error 50, RECORD NOT PRE- 
SENT (No está presente tal fi¬ 
cha), no es motivo de preocu¬ 
pación si has creado o am¬ 
pliado un fichero relativo. Si 
escribes en una ficha que no 
existe, de un fichero relativo, 
la información se añade al f¡- 



En el interior de un progra¬ 
ma DS es mucho más útil que 
DS$. Tras una utilización de 
un disco, añade una línea IF 
DS >19 THEN 500, donde la lí¬ 
nea 500 sea el comienzo de 
una rutina de depuración de 
errores. Si no existe ningún 
error la variable DS toma, nor¬ 
malmente, el valor 0. Pero si 
DS toma un valor igual o su¬ 
perior a 20, significa que algo 
ha fallado. 

Existen algunas excepcio¬ 
nes: Error 01 no es propiamen¬ 
te un error, suele producirse 


nal del disco. La ficha no es¬ 
taba presente antes de tal 
operación, de ahí que provo¬ 
que un error 50. 

Algunos comandos facilitan 
el manejo de los ficheros y lo 
simplifican. SCRATCH borra 
un fichero del directorio del 
disco. Tras el comando ha de 
escribirse el nombre del fiche¬ 
ro entre comillas. El nombre 
del fichero puede contener ca¬ 
racteres comodín (?, *, etc.) 
cuando queramos borrar algu¬ 
nos ficheros con nombre pa¬ 
recido. Para cambiar el nom¬ 


bre de un fichero RENAME 
«nombre anterior», TO «nuevo 
nombre». El formato es mu¬ 
cho más sencillo que OPEN 
15, 8, 15, «RO: nuevo nombre- 
nombre anterior» el formato 
que requería el VIC o el 
C = 64. 

COLLECT valida el disco. 
Mediante este comando pode¬ 
mos disponer del espacio en 
disco que ha sido ocupado 
por ficheros impropiamente 
cerrados y para borrar las re¬ 
ferencias a esos ficheros en el 
directorio. Los ficheros impro¬ 
piamente cerrados aparecen 
en el directorio con un asteris¬ 
co; por ejemplo *PRG. 

DCLEAR cierra todos los 
canales abiertos en la unidad 
de disco y cierra todos los 
ficheros. 

CONCAT combina los con¬ 
tenidos de dos ficheros se- 
cuenciales. Une el segundo fi¬ 
chero al final del primero, 
manteniendo el nombre de 
éste. 

CONCAT «Fichero 2», TO 
«Fichero 1». El fichero resul¬ 
tante es designado fichero 1. 

Existen dos comandos pen¬ 
sados para su utilización con 
unidades de disco dobles. 
Son COPY y BACKUP. El pri¬ 
mero copia un fichero de una 
unidad a la otra. Se precisa, 
pues, una unidad de disco do¬ 
ble. En el caso de una unidad 
simple, podemos copiar un fi¬ 
chero en el mismo disco, pero 
teniendo en cuenta que los 
nombres de estos ficheros 
han de ser diferentes. 

BACKUP copia todos los fi¬ 
cheros del disco origen en el 
disco destino, en una unidad 
de disco doble. BACKUP co¬ 
pia toda la información del 
disco, incluyendo el formato. 
Es decir, podemos utilizar un 
disco nuevo sin formatearlo 
previamente. Debido a ello he¬ 
mos de tener precaución con 
su manejo, puesto que des¬ 
truimos toda la información 
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que hubiera en el disco des¬ 
tino. 


PEQUEÑOS 

INCONVENIENTES 

Existen lo que podríannos 
denominar «pequeñas pegas» 
en el C-128. Una de ellas es 
que al pulsar SHIFT- 
RUN/STOP se cargue y ejecu¬ 
te el primer programa del dis¬ 
co. La carga así efectuada es¬ 
taría muy bien si fuera eso lo 
que quisiéramos hacer. Pero, 
más tarde o más temprano, 
mientras estamos programan¬ 
do podemos pulsar SHIFT- 
LOCK y RUN/STOP o la tecla 
Commodore y RUN/STOP. 
Cuando el disco comience a 
girar, el tiempo del que dispo¬ 
nemos para evitar la carga del 


primer programa es mínimo. 
Si no conseguimos detenerla, 
el programa se cargará y eje¬ 
cutará y habremos perdido 
aquella parte de programa 
con la que estuviéramos tra¬ 
bajando. Para evitar este pe¬ 
queño incordio podemos si¬ 
tuar un fichero secuencial al 
comienzo del disco. Si por 
error pulsamos las teclas de 
carga, el ordenador tratará, en 
vano, de cargar el fichero se¬ 
cuencial. Tomando esta pre¬ 
caución el programa con el 
que estemos trabajando, esta¬ 
rá a salvo. 

También podemos, por 
error, grabar un programa. Las 
funciones que traen incorpo¬ 
radas F7 y F3 son LIST y DI- 
RECTORY, respectivamente. 
Muy útiles y cómodas cuando 
queramos comprobar lo que 


se encuentra en el directorio o 
en un determinado programa. 
Pero en medio de ambas nos 
topamos con F5, definida 
como DSAVE. Si tratamos de 
listar un programa y acciden¬ 
talmente pulsamos F5 y F7, el 
ordenador imprimirá DSAVE 
«LIST y comenzará a grabar el 
programa con tal nombre. 

Finalmente, algo a tener en 
cuenta al utilizar comando de 
disco es que las variables han 
de ir encerradas entre parén¬ 
tesis. El siguiente ejemplo nos 
muestra la forma correcta e 
incorrecta de utilizar las va¬ 
riables: 

RENAME H$ TO «Final»: REM 
INCORRECTO. 

RENAME (H$) TO «Reciente»: 
REM CORRECTO. □ 



Una práctica funda lavable y resistente, que protegerá del polvo 
y de otros deterioros a tu COMMODORE. 

¡Y que por ser una oferta exclusiva para nuestros lectores puedes 
conseguirla con un 25% de descuento sobre su precio real, 
de venta! 

¡Apresúrate! Recorta y envía HOY MISMO 
este cupón a: 

COMMODORE MAGAZINE (FUNDAS) 

Bravo Murillo, 377 - 28020-MADRID 

Las existencias son limitadas 
¡No te quedes sin ella! 


Protege tu Commodore con esta 

Uno oferto especio! y exclusivo 
poro nuestros lectores 





¿Quién no ha tenido alguna vez que recoger datos tratados a 
posteriori? Precisamente, esta labor es a menudo una de las 
más complicadas en la programación y por eso hemos 
decidido comenzar desde el principio y trabajando 
con el Datassette. 


V 


amos a explicar brevemente 
la administración de ficheros se- 
cuenciales para el Commodore 
64. Primero tendré que hablar so¬ 
bre los conceptos básicos de 
este área, continuando con un 
ejemplo de programa, de tal for¬ 
ma que su comprensión sea ab¬ 
soluta. Fichero, en su significado 
literal, consiste en uno o varios 
conjuntos de fichas. Estas se 
pueden hallar fácilmente en las 
bibliotecas. En cada una está 
toda la información referente al 
objeto o persona que interese. 
Así sabremos en cada momento 
qué lector está leyendo qué libro 
o qué libro ha sido prestado. La 
reunión de estas fichas da lugar 
al fichero; pues bien, éste, el in¬ 
formático, sigue el mismo proce¬ 
so, se encuentra constituido por 
varios registros, donde aparece la 
información individual, lo mismo 
que en la ficha. 

EL FICHERO INFORMATICO 

La gran ventaja de un fichero 
informático sobre el fichero clási¬ 
co (que hemos descrito anterior¬ 
mente) es su enorme flexibilidad. 
Hay que tener en cuenta ante 
todo la rapidez de búsqueda y or- 



Ficheros 
secuenciales 
con el datassette 
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denación de todos los datos y no 
debemos olvidarnos del ahorro de 
espacio que supone. 

Antes he mencionado el regis¬ 
tro, éste se puede comparar con 
la ficha de un gran fichero, refi¬ 
riéndonos al ejemplo anterior, en 
donde se encuentran todos los 


datos que estarían en la ficha 
subdivididos por campos. 

Si he dicho, refiriéndome siem¬ 
pre al ejemplo anterior, que el 
equivalente de un registro es la fi¬ 



cha, podemos imaginarnos que el 
campo lo es de un dato individual 
de ésta. La relación entre los tres 


COMMODORE MAGAZINE • 61 








se puede representar en el esque¬ 
ma del cuadro 1. 

PROGRAMACION DE FICHEROS 

Después de este preámbulo va¬ 
mos a ver la programación de fi¬ 
cheros. Existen tres tipos princi¬ 
pales, los cuales son: secuencia- 


les, aleatorios o de acceso direc¬ 
to y relativos. Aquí sólo tratare¬ 
mos los secuenciales. 

El Commodore 64 posee una 
asignación de dispositivo espe¬ 
cial para grabar en cassette. El 
número del dispositivo es el uno, 
éste también se emplea en el co¬ 
mando de grabación. Cuando te¬ 


nemos apretadas las teclas RE¬ 
CORD y PLAY (del cassette), el or¬ 
denador graba una cabecera es¬ 
pecial en la cinta, que contiene, 
en el caso de un fichero, el nom¬ 
bre del mismo. 

No hay que olvidar que el Com¬ 
modore 64, al grabar, NO busca 
el fichero (cuyo nombre ya hemos 


10 REM ***** CREACION DE FICHEROS ***** 

: 2Ó Dlh Mí ( 1 ó O) , Fí < 100) , Tí (100) : 1 = 1 
30 PR1 NT"ÍT 

40 PRINI" MIMMHM M E N U B" 
m PRIN'T . GRABAR FICHERO" 

60 PRIN1 " «He. LEER FICHERO" 

’F'RINI " VME. INTRODUCIR MAS REGISTROS" 

Hcr PRINT" MftMH. F I MAL IZAR " 

■’" lQ I^PUT" PULSA LA DBCIQN DESEADA " ; O 

100 ON O GOTO 110,470,740,1100 
Tí 0""PR I NT" 3” 

130 PR1N1 "«MMIMI INSTRUCCIONES " 

130 PRINT"W« COJE UNA CINTA Y ASEGURATE DE QUE" 

140 F'R I NT" «NO TIENES NADA GRABADO EN ELLA" 

150 F'RIMT'M SI TIENES ALGO GRABADO LO BORRARIA" 

160 PRINT"*» AHORA INTRODUCE LA CINTA" 

170 PRINT" «« CUANDO NO QUIERAS INTRODUCIR MAS DATOS ESCRIBE <TTN>" 
130 F'R I NI " »»»»» 9 SI ESTAS LISTO PULSA UNA TECLA 

100 GE IAí: IF Aí =""1 HEÑI90 
200 F'R IN I “Zr 

310 REM ******* ABRIR FICHERO ********* 

330 0PEN1.1.2."JUEGOS" 

776 PR | |\| | 

2 T O IIMPU I " »M9 IN I R'GDUCE EL. NOMBRE : 5 " ; Ni 
250 IF N Í=" FIN"IHEN380 

260 I NF'U i " «a FECHA CON FORMATO DD/MM/AA: B " ; Fí 
U"IPUI"W9 UPO DE PR I GRAMA: Tí 

230 INPUI“«MMM ESTAS SEGURO S/Ns ' " : Si 
290 IF SÍ=="S"THEN330 
300 IF SÍ~="N" THEN230 
3)0 GOTO 280 

32o REN ********** GRABAR ************* 

330 ! FU! I #1 ,Ní . 

340 PRINT#1,F* 

350 F'R INI #1 .1 i 
360 GOTO 230 

3/0 REM ******** CERRAR FICHERO ******* 

380 Ct OSE 1 

590 F'R I NT " TJ‘ . 

400 PRINT"»» PULSA STOP PARA PARAR LA CINTA " 

4íO FQRK—1 I02000:NEXTK 

420 INPU T"»»»»»»M»»9 DESEAS VOLVER AL MENU S/N: B " ; Ri 
130 IF RÍ--"S“THEN30 
440 IF Ri="N"THENEND 
450 GOTO 280 

460 REM ******** LEER DATOS *********** 

470 F'R INT" ZJ' 

480 PR IN I " MHMMM INSTRUCCIONES B" 

T/O F'R IN1 " »»» INTRODUCE LA CINTA EN EL CASSETTE " 

500 PRINT"» Y UNA VEZ HECHO ESTO, ASEGURATE DE " 


62 • COMMODORE MAGAZINE 



























510 PRINT"» QUE SE ENCUENTRA AL PRINCIPIO " 

520 PRINT":» DE LA MISMA." 

530 PRINT 

540 PRIINT"M WiWü SI ESTAS LISTO PULSA UNA TECLA B' 

550 BETA*:IF Aí=""THEN550 
560 PRTNT'TT 

570 REM ****** ABRIR FICHERO ********** 

580 OF'EN 1 . 1 . O . "JUEGOS" 

590 PRINT "3* 

600 IFST AND 64 THEN 720 
610 INPUI H I . f \J4: 

620 INPUT#]. ,F* 

630 INPUT#1.T* 

64O PRINT"a«« NOMBRE: »'; Ní 

650 PRINT" a*M FECHA : *•»*** 

660 PRINT” TIPO : B" ; V* 

6,’'0 I NF'UT " WÜMMM DESEAS VER EL SIGUIENTE (S/N):"jS* 
680 IF S*="S" THEN590 
690 IF S*="N"THEN720 
TÚO GOTO 670 

710 REM ******* CERRAR FICHERO ******** 

720 GLOSE1 
730 GOTO 30 

740 REM **** PONER MAS REGISTROS **** 

750 PRINT" 3' 

oso pr i nt•• mmainia poner mas registros s" 

7 70 rrnir"MM introduce la cinta en el cassette m . 

780 PRINT"M Y UNA VEZ HECHO .ESTO, ASEGURATE DE " 

790 PRINT"» QUE SE ENCUENTRA AL PRINCIPIO " 

8 O O p RIN T " M de: LA MISMA." 

01 o F'RINT" )MHMM SI ESTAS LISTO PULSA UNA TECLA B' 

820 BETA*:IF A*=""THEN550 
830 PRINT"3' 

840 FORX = 1 í 010OO: N E X T X 
850 OREN 1,1,O,"JUEGOS" 

860 I =1 

870 IF ST AND 64THEN930 
880 INPUT#!. , N*: N* (I) =M* 

690 INPUT#1,F*:F*(I) =F% 

900 I NI-'U )#1. . 1 *• ! ■$. ( I) = | * 

910 IF I=100THEN930 
920 1=1+1: 6QTQ87Q 

930 R=I . 

940 CLQBE1 

950 PRINT"3M««i**M<EBüBINA LA CINTA HASTA EL PRINTCIPIO" 
960 TUPI II" «BlWW«a ESTAS LISTO (S/N): »•; R* 

970 IF Rí< 7"S“ÁNDR*<>"N"THEN960 
980 IF R*="N" TFIEN 960 

,:? 9o ppiM i"MmmnM espera un momento" 

1OOÜ UFEN],1,2,"JUEGOS" 

1010 POR1=110 R 
1020 IF ST=64THEN1070 
1030 PRINT#!.Ní(I) 

1 040 PRINT #1 .Fí- ( I) 

1050 PRINT#1,T*<I) 

1060 NEXT I 

10/0 pr i ni "nnwinninM introducir datos" 

1080 FORX=1TQ1DOO:NEXTX 
1090 BOTO 230 

llOO REM ************ FIN ************** 

1110 PRINT"3' 

1120 END 
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CAMPO 


CAMPO 




Cuadro 1 




indicado). Esta operación se ini¬ 
cia sin que el ordenador tenga en 
cuenta el contenido de la cinta 
desde el punto donde ésta se en¬ 
cuentra. De tal manera que si te¬ 
néis algo de información en ese 
punto de la cinta el ordenador os 
grabará encima, perdiendo por lo 
tanto todo lo que tuvierais en ese 
punto de la cinta. Para evitar esto, 
yo os aconsejo que utilicéis una 
sola cinta por fichero, es la ma¬ 
nera más segura de saber que no 
estáis grabando encima de otro. 

FICHEROS SECUENCIALES 

Como he citado en otras oca¬ 
siones, sólo vamos a tratar fiche¬ 
ros secuenciales. Desde un pun¬ 
to de vista etimológico «secuen- 
cial» significa «consecutivo». Es 
decir, que el ordenador va graban¬ 
do un registro detrás de otro con¬ 
secutivamente, de tal manera que 
si queréis ver lo que hay grabado 
es necesario rebobinar la cinta 
hasta el principio. Supongamos 
que tenemos grabado en una cin¬ 
ta musical un disco con varias 
canciones, si nosotros queremos 
escuchar una de ellas y no sabe¬ 
mos dónde está tenemos que es¬ 
cucharlas una por una hasta que 
encontremos la canción que que¬ 
ríamos escuchar; pues lo mismo 
ocurre con los ficheros secuen¬ 
ciales. 

. Ahora vamos a crear uno, que 
va a servir para guardar el nom¬ 
bre de todos nuestros programas 
y saber en qué fecha los compra¬ 
mos, así como el tipo de progra¬ 


ma, juego, tratamiento de texto, 
etc. 

Este fichero contiene diferentes 
campos: NOMBRE, FECHA, TIPO. 
En el primero se pone el nombre 
del programa, en el segundo in¬ 
troducimos la fecha en que éste 
se compró, y en el último se in¬ 
troduce el tipo de programa de 
que se trate. 

Este programa permite no sólo 
la creación del fichero, sino tam¬ 
bién con la opción dos podéis ver 
los registros que tenéis en él; 
además os permite mediante la 


opción tres añadir más registros 
al fichero. Cuando queráis salir 
del programa no tenéis más que 
pulsar la opción cuatro acompa¬ 
ñada de la tecla RETURN, con lo 
cual saldréis del programa y en¬ 
traréis en modo BASIC. 

EXPLICACION DEL PROGRAMA 

20: Dimensionamos las 
variables que luego 
utilizaremos Dara aña¬ 
dir más registros y po¬ 
nemos el subíndice de 
éstas a uno. 

40-80: Menú de opciones 
que dispone el progra¬ 
ma. 

90-100: Manda al programa a 
la opción deseada se¬ 
gún pulsemos la op¬ 
ción 1, 2, 3, 4. 

120-190: Instrucciones para la 
grabación de los re¬ 
gistros. 

220 OPEN 1, 2, «JUEGOS». 

Esta línea es la que nos crea un 
fichero con el nombre de JUE¬ 
GOS. 
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CONCURSO MENSUAL DE COMMODORE MAGAZINE 


Su Programa Para Cualquier 
Sistema Commodore 
Puede Hacerle Ganar 5.000 Ptas. 


E l presente 

CONCURSO ESTA 
ABIERTO A TODOS 
NUESTROS LECTORES 
Y SU PARTICIPACION 
E INSCRIPCION ES 
GRATUITA. 

LEA LAS BASES DEL 
CONCURSO 


■ NO SE ESTABLECEN LIMITACIONES 
EN CUANTO A EXTENSION. TEMA ELEGIDO 
O MODELO DE ORDENADOR 


■ LOS CONCURSANTES DEBERAN 
ENVIARNOS A LA DIRECCION QUE FIGURA 
AL PIE. EL CASSETTE O DISKETTE 
CONTENIENDO EL PROGRAMA. UNA 
EXPLICACION DEL MISMO Y. 

AL SER POSIBLE. UN LISTADO EN PAPEL 
DE IMPRESORA. SE PODRAN ENVIAR 
TANTOS PROGRAMAS COMO SE DESEE 


■ LOS PR(X¡RAMAS. PREVIA SELECCION. 
SERAN PUBLICADOS EN LA REVISTA. 
OBTENIENDO TODOS ELLOS 5.000 PTAS. 


■ LA DECISION SOBRE LA PUBLICACION 
O NO DE UN PROGRAMA CORRESPONDE 
UNICAMENTE AL JURADO NOMBRADO 
AL EFECTO POR “COMMODORE MAGAZINE 
SIENDO SU FALLO INAPELABLE 


■ LOS CRITERIOS DE SELECCION 

SE BASARAN EN LA CREATIVIDAD DEL 

TEMA ELEGIDO Y LA ORIGINALIDAD 

Y/O SENCILLEZ EN EL 

METODO DE PROGRAMACION GLOBAL 


■ ENVIAR A: 
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240: Esta línea nos permite 
introducir el primer 
campo del registro, en 
este caso NOMBRE. 

250 IF N$ = «FIN» THEN 380. 
Esta línea nos determina el final 
de la escritura de los registros y 
nos permite volver al menú. Es la 
línea más importante del progra¬ 
ma, pues sin ella no podríamos 
dejar de grabar registros. 

260: Introducimos el se¬ 
gundo campo del re¬ 
gistro. 

270: Introducimos el tercer 
campo del registro. 

280-310: Estas líneas nos per¬ 
miten revisar lo que 
hemos escrito y, en 
caso de error, escribir¬ 
lo de nuevo antes de 
grabarlo en el fichero 
pulsando la tecla N y 
después RETURN. 

330 PRINT#1, N$. Grabamos el 
primer campo del registro. 

340 PRINT#1, F$. Grabamos el 
segundo campo. 

350 PRINT#1, T$. Grabamos el 
tercer campo del registro. 

360: Volvemos para intro¬ 
ducir más registros o 
para fin. 

380 CLOSE 1 . Cerrarnos el fi¬ 
chero, si omitimos esta instruc¬ 
ción no podríamos volver a acce¬ 
der a él hasta no haberlo cerrado. 

400-450: Instrucciones para 
volver al menú princi¬ 
pal o finalizar. 

480-550: instrucciones para la 
lectura de registros. 

570 OPEN 1, 0 «JUEGOS». 
Abrimos el fichero para lectura de 
registros. 

600 IF ST AND 64 THEN 710. 

Esta sentencia nos determina el 
«fin» de fichero. 

610-630: Leemos los datos del 
registro. 

640-660: Saca por pantalla los 
datos del registro. 

670-700: Nos permite ver más 
registros o volver al 
menú principal. 

720 CLOSE 1 . Esta sentencia 
nos permite cerrar el fichero. 


730: Volvemos al menú 
principal. 

760-820: Instrucciones para 
añadir más registros. 

840: Bucle de espera. 

850 OPEN 1, 0, «JUEGOS». 
Abrimos el fichero para lectura. 

860: Ponemos el subíndice 
a utilizar a uno. 

870-920: Cargamos una tabla 
con todos los regis¬ 
tros que tenemos en 
el fichero. 

930: Hacemos R igual al 
valor final del subíndi¬ 
ce I. 

940 CLOSE 1 . Volvemos a 
cerrar el fichero. 

950-980: Instrucciones para 
empezar a añadir más 
registros al final del fi¬ 
chero. 

1000 OPEN 1, 2 «JUEGOS». 

Abrimos de nuevo el fichero para 
grabación. 

1010-1060: Grabamos todos los 
registros que tenía¬ 
mos en el fichero. 

1060: Cabecera de aviso 
para empezar a añadir 
datos. 

1080: Bucle de espera. 


1090: Mandamos al progra¬ 
ma a introducir más 
registros. 

1110-1120: Finalizamos la sesión 
y nos salimos del pro¬ 
grama. En este mo¬ 
mento, para poder eje¬ 
cutarlo hay que hacer 
un RUN. 


Espero que este artículo os sir¬ 
va para entender mejor los fiche¬ 
ros del tipo secuencial. 

Tenéis que tener en cuenta que 
el ordenador dispone de un buf- 
fer de grabación con capacidad 
para 250 caracteres, lo que quie¬ 
re decir que el ordenador real¬ 
mente no empieza a grabar has¬ 
ta no tener cubierto el buffer o de¬ 
cirle que es fin de fichero, por lo 
tanto no os asustéis si veis que 
la cinta no da vueltas. 

El programa está preparado 
para que le podáis añadir más 
cantidad de campos realizando 
unas pequeñas modificaciones 
en las líneas que se encargan de 
la introducción, grabación y lec¬ 
tura de datos. 


CONCLUSIONES 
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m fl|ft Siente la fuerza de la mítica RD. Las siglas con sabor a vic 
— XII toria en mil circuitos. Con la másavanzada tecnología Yamaha, 
Ww Con el más completo equipamiento. Rápida, suave, segura, 
bella y silenciosa. Acepta el reto y dale gas: Serás el primero. 


MOTUL 

MOTONOS. 


YAMAHA VA POR DELANTE 

















PENMAN: Plotter Robot: 3 colores: 50 mm./seg.: RS232C y RS423 


RITEMAN 15 IBM: 160 cps: 8 K buffer: NLQ 


RITEMAN 10-II-IBM 
160 cps: 8 k buffer: NLQ 


RITEMAN F+: CENTRONICS: NLQ: IBM 
RITEMAN C+: COMMODORE: NLQ. 





